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前 言 


ASP 是 美国 微软 公司 开发 的 代替 CG 脚本 程序 的 应 用 程序 ， 它 可 以 与 数据 库 和 其 他 程序 
进行 交互 ， 是 一 种 既 简 单 又 方便 的 编程 工具 。ASP 的 主要 特性 是 能 够 将 脚本 HIML、 组 件 和 
强大 的 Web 数据 库 访 问 功能 结合 在 一 起 ,形成 一 个 能 在 服务 器 上 运行 的 应 用 程序 ， 并 把 按 用 
户 的 要 求 专门 制作 的 HTML 页 面 发 送 给 客户 端 浏 览 器 显示 。 

ASP 可 以 用 来 创建 与 运行 动态 网 页 和 Web 应 用 程序 。ASP 网 页 可 以 包含 HTML 标记 、 
普通 文本 、 脚 本 命令 以 及 COM 组 件 等 内 容 。 利 用 ASP 不 仅 可 以 向 网 页 中 添加 交互 式 内 容 ， 
例如 在 线 表单 ， 而 且 还 能 够 创建 使 用 HTML 网 页 作为 用 户 界面 的 Web 应 用 程序 。 

ASP 属于 ActiveX 技术 中 的 服务 器 端 技术 ， 与 通常 在 客户 端 实现 动态 页 面 的 技术 (如 
Java、VBScript 等 ) 不 同 ，ASP 中 的 命令 和 脚本 都 是 在 服务 器 端 解释 执行 的 ， 因 而 网 站 设计 者 
不 必 担心 浏览 器 是 否 能 执行 脚本 。 同 时 ， 由 于 只 是 将 HTML 页 面 发 送 到 浏览 器 执行 ， 在 浏览 
器 中 看 不 到 ASP 程序 源 代 码 ， 因 此 可 以 防止 程序 代码 被 窃取 。 另 外 ，ASP 提供 了 简单 、 方 便 
的 数据 库 访问 方法 ， 可 以 使 开发 基于 数据 库 驱 动 的 web 应 用 程序 更 加 容易 。 

本 书 针对 学 习 ASP 和 网 站 开发 的 初中 级 用 户 而 设计 , 采用 由 浅 入 深 、 循 序 渐进 的 讲述 方 
法 ， 在 理论 与 实例 部 分 安排 上 充分 考虑 到 初学 者 的 实际 需求 ， 通 过 大 量 的 实用 操作 指导 和 有 
代表 性 的 实例 , 可 以 使 读者 直观 、 迅 速 地 了 解 ASP 的 主要 功能 和 动态 网 站 的 制作 方法 。 另 外 ， 
读者 还 可 以 通过 各 章 课 后 习题 巩固 书 中 所 学 的 知识 。 

本 书 是 集体 智慧 的 结晶 ， 除 封面 署名 作者 以 外 ， 参 与 本 书 编写 的 还 有 王 祥 仲 、 孙 红 丽 、 
卫 权 岗 、 李 玉玲 、 王 永 驱 、 尹 辉 、 赵 新 娟 、 陈 笑 、 孔 祥 亮 等 人 。 尽 管 我 们 在 编写 本 书 时 已 尽 
了 最 大 努力 ， 但 由 于 各 种 条 件 的 限制 ， 加 之 作者 水 平 有 限 ， 书 中 不 足 之 处 在 所 难免 ， 希 望 读 
者 批评 指正 。 

本 书 课 件 、 实 例 源 文件 可 通过 http://www.tupwk.com.cn 免 费 下 载 。 我 们 的 服务 邮箱 是 : 
wkservices(@163.com. 
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教学 目标 
通过 对 本 章 的 学 习 ， 读 者 应 掌握 安装 和 配置 IIS 服务 以 建立 ASP 的 工作 环境 的 方法 ， 
并 对 ASP 标记 有 一 个 初步 的 认识 。 


教学 重点 与 难点 

e@ ASP 的 技术 特点 

e@ ASP 的 运行 环境 

e@ ASP 的 常用 内 建 对 象 

e@ 构建 ASP 程序 开发 环境 


ASP(Active Server Pages) 即 动态 服务 器 页 面 ， 是 一 种 服务 器 端 脚本 执行 环境 ， 网 页 设 
计 者 通过 该 环境 可 以 创建 和 运行 动态 、 交 互 的 Web 应 用 程序 。ASP 可 以 结合 HTML 页 、 
脚本 命令 和 ActiveX 组 件 ， 共 同 创建 动态 的 Web 页 和 基于 Web 服务 器 的 功能 强大 的 应 用 
程序 。 


1.1 什么 是 ASP 


ASP 内 含 于 IIS(Intemet Information Server) 中 ， 是 一 种 Web 服务 器 端的 开发 环境 。 通 
过 在 普通 HTML 页 面 中 嵌入 的 ASP 脚本 语言 ， 可 以 产生 和 执行 动态 的 、 交 互 的 、 高 性 能 
的 Web 应 用 程序 。ASP 采用 脚本 语言 VBScript(JScripb 作 为 自己 的 开发 语言 。 


1.1.1 ASP 的 技术 特点 


ASP 主要 为 HTML 编写 人 员 提 供 了 在 服务 器 端 运行 脚本 的 环境 ， 使 HTML 编写 人 员 
可 以 利用 VBScript 和 JScript 或 其 他 第 三 方 脚本 语言 创建 ASP， 实 现 有 动态 内 容 的 网 页 ， 
如 计数 器 等 。ASP 有 以 下 特点 : 
e 用 户 端 只 要 使 用 可 执行 HIML 代码 的 浏览 器 ， 即 可 浏览 ASP 所 设计 的 网 页 内 容 ， 
ASP 程序 的 运行 与 浏览 器 无 关 。 
e ASP 脚本 在 服务 器 端 执行 ， 传 到 用 户 浏览 器 的 只 是 ASP 的 执行 结果 所 生成 的 常规 
HTML 代码 ， 这 样 可 以 保证 设计 者 编写 的 程序 代码 不 会 被 用 户 盗 取 。 
e ASP 使 用 VBScript 等 简单 的 脚本 语言 , 设计 者 可 以 快速 完成 网 站 应 用 程序 的 编写 。 
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e@ ASP 运行 在 服务 器 端 ， 因 此 ， 使 用 ASP 建立 的 网 站 ， 设 计 者 无 须 担 心 用 户 在 浏览 
器 上 通过 Intemet 访 问 网 站 时 ,会 出 现 浏览 器 不 支持 ASP 所 使 用 的 编程 语言 的 情况 。 
e 无 须 编译 ， 便 可 在 服务 器 端 直接 执行 。 
e 使 用 普通 的 文本 编辑 器 (例如 Windows 记事 本 )， 即 可 进行 ASP 程序 的 设计 。 
e ASP 程序 中 包含 许多 基本 组 件 和 常用 组 件 (本 书后 面 的 章节 将 陆续 介绍 ), 设计 者 只 
要 在 服务 器 端 安装 需要 的 组 件 ， 就 可 以 通过 访问 组 件 ， 快 速 、 简 易 地 建立 自己 的 
ASP 动态 网 站 ， 并 且 能 够 使 用 这 些 组 件 方便 地 完成 网 站 上 的 某 些 特殊 应 用 。 
总 之 ，ASP 是 在 服务 器 端 开发 Web 应 用 的 一 种 简单 、 方 便 的 编程 工具 ， 它 对 标准 的 
HTML 文件 进行 了 拓展 , 增加 了 一 些 附加 特征 , 可 以 使 网 页 在 布局 和 功能 方面 都 更 加 丰富 。 


1.1.2 ”ASP 的 工作 流程 


当 浏 览 器 请 求 打 开 一 个 ASP 页 面 ，Web 服务 器 接收 到 请 求 后 ， 将 按 以 下 流程 展开 工 
作 ， 如 图 1-1 所 示 。 


ASP 文 件 


图 1-1 ASP 的 工作 流程 


(1) 服务 器 读 取 ASP 文件 的 内 容 , 判断 是 否 有 ASP 服务 器 端的 代码 需要 执行 。 判断 的 
方法 有 两 种 :一 种 是 查看 ASP 代码 中 特有 的 <% %> 脚 本 标记 ; 另 一 种 是 查看 ASP 代码 是 
和 否 被 指定 要 运行 在 服务 器 端 ， 如 : 


<script runat="server"> 


(2) 假如 有 要 运行 的 ASP 代码 ， 服 务 器 会 将 这 些 代码 挑 出 来 逐 行 进行 解释 ， 假如 没有 
要 运行 的 ASP 代码 ， 它 仅 简单 地 通知 IS 这 种 情况 。 

(3) 服务 器 在 解释 运行 脚本 后 ， 将 脚本 的 执行 结果 与 静态 HTML 代码 进行 合并 ， 形 成 
一 个 最 终 的 网 页 页 面 。 

(4) 服务 器 把 网 页 发 送 给 客户 端 浏 览 


第 1 章 ASP 的 基础 知识 “3。 


注意 : 

由 于 脚本 在 服务 器 端 而 不 是 在 客户 端 运行 ， 传 送 到 浏览 器 上 的 Web 页 是 在 Web 服务 
器 端 生成 的 ， 所 以 不 必 担 心 浏览 器 能 否 处 理 脚本 。 由 于 只 有 脚本 的 结果 返回 到 浏览 器 ， 所 
以 服务 器 端 脚本 不 易 复制 ， 用 户 看 不 到 正在 浏览 页 面 的 脚本 命令 。 


1.1.3 ASP 的 工作 原理 


通过 客户 端 浏 览 器 请 求 ASP 程序 的 过 程 和 访问 普通 HTML 页 面 的 过 程 不 同 ， 用 户 可 
以 清楚 地 了 解 ASP 的 工作 原理 。 

对 HIML 页 面 的 访问 一 般 用 户 都 比较 了 解 : 首先 是 将 HTML 文件 的 Intemet 地 址 输入 
至 客户 端 浏览 器 地 址 栏 ， 浏 览 器 会 将 网 页 请 求 发 送 到 Web 服务 器 Web 服务 器 收 到 请 求 
后 ， 通 过 扩展 名 .html 或 者 .htm 判断 HTML 文件 的 请 求 ， 然 后 将 相应 的 HTML 文件 从 服务 
器 磁盘 中 取出 并 返回 到 客户 端 浏览 器 ; 在 客户 端 , 浏览 器 对 HTML 文件 解释 后 并 将 其 显示 ， 
用 户 所 看 到 的 网 页 效果 就 是 这 个 结果 。 

ASP 的 工作 原理 是 : 当 用 户 申请 一 个 .asp 文件 时 ，Web 服务 器 响应 该 请 求 ， 并 调用 服 
务 器 上 的 ASP 解释 器 ， 解 释 被 申请 的 文件 ， 生 成 相对 简单 的 页 面 返回 给 客户 端 浏览 器 。 此 
类 生成 的 页 面 是 纯 HTML 文件， 所 以 一 般 浏览 器 都 能 够 浏览 ASP 网 页 ， 而 实际 上 当 用 户 
申请 浏览 .asp 文件 时 ， 文 件 并 不 直接 返回 给 浏览 器 。 


1.1.4 ASP 的 运行 环境 


ASP 是 一 种 服务 器 端的 脚本 语言 ， 它 只 能 在 服务 器 环境 下 才能 正常 运行 ， 而 服务 器 环 
境 的 配置 要 求 也 很 简单 ， 只 需 在 Windows 操作 系统 添加 和 安装 TS 组 件 即 可 。ASP 对 客户 
端 没 有 任何 特殊 的 要 求 ， 只 要 有 一 个 普通 的 浏览 器 即 可 。 


注意 : 

借助 于 第 三 方 开发 商 提 供 的 服务 器 扩展 程序 ,设计 者 也 可 以 在 UNIX、 Linux 和 Apache 
上 执行 ASP 程序 。 任何 一 种 Web 服务 器 ， 只 需 内 风 ASP 解释 程序 ,就 可 以 支持 ASP 编写 
的 动态 网 页 。 


1.1.5 ”ASP 的 常用 内 建 对 象 


ASP 主要 有 6 个 常用 的 内 建 对 象 ， 这 些 内 建 对 象 提供 了 许多 方法 和 属性 ， 大 大 方便 了 

设计 者 编写 Web 应 用 程序 。 下 面 简单 介绍 ASP 的 内 建 对 象 。 
e Request 对 象 : 读 取 用 户 信息 。 用 于 取得 任何 由 HTTP 请 求 传递 过 来 的 信息 ， 包 括 
使 用 POST 和 GET 传递 的 参数 ， 以 及 从 服务 器 和 客户 端 认 证 所 传递 的 Cookie 等 。 
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e@ Response 对 象 : 传送 信息 给 用 户 。 可 以 使 用 它 的 方法 输出 信息 到 浏览 器 ， 或 将 使 

者 转移 到 另 一 个 URL， 并 可 以 控制 内 容 形 态 和 设 定 Cookie 值 。 

e ”Server 对 象 : 控制 ASP 的 执行 环境 ， 提 供 存 取 Web 服务 器 的 方法 与 属性 。 

e@ Session 对 象 : 存储 用 户 对 话 框 的 相关 信息 。 此 对 象 仅 适 用 于 一 个 用 户 ， 可 以 用 它 
记录 该 用 户 的 一 些 信 息 ， 并 为 每 一 个 用 户 保留 一 个 SessionID 。 

e Application 对 象 : 用 于 为 应 用 程序 所 有 用 户 设置 属性 ， 并 且 传 递 信息 给 用 户 。 

e ObjectContext 对 象 : 提供 在 页 面 内 进行 事务 处 理 的 功能 。 


注意 : 

使 用 ASP 内 建 对 象 ， 可 以 获得 浏览 器 传递 过 来 的 信息 ,向 浏览 器 输出 信息 ， 记 录 单 一 
用 户 ， 创 建 全 体 用 户 操作 量 ， 以 及 创建 组 件 等 。 在 本 书后 面 的 章节 中 将 具体 介绍 ASP 各 内 
建 对 象 的 使 用 方法 。 


1.2 ”安装 与 架设 IIS 


ASP 程序 是 运行 于 网 络 服务 器 端的 一 种 应 用 程序 , 要 想 正 常 运行 ASP 程序 , 需要 建立 
ASP 的 运行 环境 。 常 用 的 支持 ASP 的 网 络 服务 器 有 PWS(Personal Web Server) 和 了 IIS(Internet 
Information Server)。 因 为 应 用 PWS 的 Windows 95/98 操作 系统 目前 已 经 被 淘汰 ， 下面 将 重 
点 介绍 在 Windows 7 操作 系统 中 安装 、 配 置 IS 以 及 设置 虚拟 目录 和 创建 网 站 的 方法 。 


1.2.1 IIS 的 安装 


IIS 是 Windows 操作 系统 自 带 的 组 件 。 用 户 可 以 参考 下 面 的 实例 ， 在 Windows 7 操作 
系统 中 安装 IIS 。 

【 例 1-1】 在 Windows 7 操作 系统 中 安装 IS 服务 。 

(1) 选择 “开始 ”|“ 控 制 面 板 ”命令 ， 在 打开 的 “控制 面板 ”窗口 中 双击 “程序 和 功 
能 ”图 标 ， 打 开 “ 程 序 和 功能 ”窗口 ， 如 图 1-2 所 示 。 

(2) 在 “程序 和 功能 ”窗口 中 单 击 “ 打 开 或 关闭 Windows 功能 ”按钮 ， 打 开 “Windows 
功能 ” » 窗口 

(3) 在 Windows 功能 ” 窗口 中 选择 “Internet 信息 服务 ”选项 ， 如 图 1-3 所 示 ， 然 后 
单 击 “ 确 定 ” 按 钮 。 

(4) 此 时 ，Windows 系统 将 开始 更 改 功能 ， 稍 等 片刻 后 ， 返 回 “ 控 制 面板 ”窗口 ， 双 
击 “ 管 理工 具 ” 选 项 ， 如 图 1-4 所 示 。 

(5) 在 打开 的 “管理 工具 ”窗口 中 双击 “Intermet 信息 服务 (IIS) 管 理 器 ”图 标 ， 即 可 对 
安装 的 IS 进行 设置 ， 如 图 1-5 所 示 。 
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图 1-5 “管理 工具 ”窗口 


IIS 服务 提供 各 种 Intermet 服务 , 如 FTP 文件 传输 、 发 送 电子 邮件 的 SMTP 和 网 页 浏览 
的 网 站 服务 等 。 当 用 户 使 用 IIS 支持 ASP 网 站 开发 时 ， 所 有 的 网 页 都 必须 放 在 IIS 配置 界 
面 中 “网 站 ”服务 功能 下 的 目录 中 。 在 用 户 通过 浏览 器 浏览 特定 网 页 时 ，IIS 会 根据 其 指定 
的 网 址 取出 对 应 的 文件 ， 并 在 解析 后 由 Internet 传送 至 用 户 计算 机 的 浏览 器 中 。 


1.2.2 IIS 的 架设 


在 系统 中 成 功 安装 HS 后 ， 用 户 可 以 通过 IS 配置 管理 主 界面 架设 ASP 网 站 ， 具 体 步 


又 如 下 例 所 示 。 


【 例 1-2】 在 Windows 7 操作 系统 中 使 用 IS 架设 一 个 ASP 站 点 。 
(1) 继续 【 例 1-1] 的 操作 , 双击 “Intemet 信息 服务 (IIS) 管 理 器 ”图 标 , 在 打开 的 “Internet 
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信息 服务 (IIS) 管 理 器 ” 窗口 中 , 展开 “网 站 ”节点 , 选中 Default Web Site 网 站 , 并 在 “Default 
Web Site 主页 ”选项 区 域 中 双击 ASP 图 标 ， 如 图 1-6 所 示 。 

(2) 为 了 保证 部 分 使 用 了 父 路 径 的 ASP 程序 可 以 正常 地 运行 ,这 里 将 启用 父 路 径 选 项 ， 
在 ASP 选项 区 域 中 单 击 “ 启 用 父 路 径 ” 下 拉 按 钮 ， 在 弹出 的 下 拉 列 表 框 中 选中 True 选项 ， 
如 图 1-7 所 示 。 
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图 1-6 “Intemet 信息 服务 (TS) 管 理 器 ”窗口 图 1-7 启用 父 路 径 


(3) 为 了 方便 调试 ， 还 需要 启用 几 个 调试 选项 。 在 ASP 选项 区 域 中 展开 “调试 属性 ” 
选项 区 域 ， 将 “将 错误 发 送 到 浏览 器 ”“ 启 用 服务 器 端 调试 ”和 “启用 客户 端 调试 ”设置 
为 True， 如 图 1-8 所 示 。 完 成 以 上 设置 后 ， 在 窗口 右 侧 的 “操作 ”列表 框 中 单 击 “ 应 用 ” 
按钮 。 

(4) 如 果 需 要 绑 定 域名 或 者 修改 网 站 所 用 端口 ， 可 以 在 如 图 1-6 所 示 的 “Intemet 信息 
服务 (IIS) 管 理 器 ”窗口 中 单 击 窗口 右 侧 的 “ 绑 定 ...” 按 钮 ， 打 开 “ 网 站 绑 定 ” 对 话 框 ， 如 
图 1-9 所 示 。 
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日 清江 尾 任 
搏 于 COM 组 件 异 需 。 True 

| 计算 行 3 True 有 
将 模 误 发 送 到 浏览 器 下 
重 名 运行 On End 函数 六 oe | [各 钴 D 。 汉 址 均 广 信和 oA) 

| 启用 服务 器 湛 清 二 Te E | 志 计 
启用 日 志 错 误 注 求 True 一 | 

及 地 滞 言 VBScri 

日 服务 全 SE) 

加 Com Plus 必 性 - 

启用 客户 油 油 试 = CD ’ 

指定 是 否 启 用 ASP 客 疡 鞭 油 二 . 二 

图 1-8 启用 调试 选项 图 1-9 “网 站 绑 定 ”对 话 框 


(5) 在 “网 站 绑 定 ”对 话 框 中 单 击 “ 编 辑 ” 按 钮 ， 打 开 “编辑 网 站 绑 定 ” 对 话 框 ， 在 
“IP 地 址 ”文本 框 中 设置 计算 机 在 局 域 网 中 的 他 地 址 ( 若 只 有 一 台 计 算 机 , 可 以 不 必 设 置 )， 
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在 “端口 ”文本 框 中 修改 网 站 所 用 端口 ， 如 图 1-10 所 示 。 
(6) 网 站 的 物理 路 径 模式 为 Ci\inetpubWwwwroot， 如 需要 修改 ， 可 以 在 如 图 1-6 所 示 的 窗 
口中 单 击 右 侧 的 “高 级 设置 ...” 按 钮 ， 打开“ 高 级 设置 ”对 话 框 进行 设置 ， 如 图 1-11 所 示 。 


es | 
日 人 到 
于 2 
加 二 http:192.168,1.77:80: 
从 Default Web cit 
ETE rt 回 
物理 路 妈 作 所 
和 ClearTect 
二 二 B 字 志 ASPNETv40 
a 二 Tne 
日 和 5 为 
Ey EE" 9 mR 
Esra butp 
WM): 信 地 址 D: 甘 D(OF 
hep -| 192168.177 -80 


主机 名 (H): 


示 www.contoso.com 或 marketing.contoso.com 


| 
physicapath] 项 问 二 所 县 录 内 写 的 物理 小径 . 


Ee 


图 1-10 “编辑 网 站 绑 定 ”对 话 框 图 1-11 “高 级 设置 ”对 话 框 


(7) 在 如 图 1-6 所 示 “Internet 信息 服务 (IIS) 管 理 器 ”窗口 中 单 击 右 侧 的 “编辑 权限 ” 
按钮 ， 在 打开 的 “属性 ”对 话 框 中 选中 “安全 ”选项 卡 ， 如 图 1-12 所 示 。 

(8) 在 “安全 ”选项 卡 中 单 击 “ 编 辑 ” 按 钮 ， 在 打开 的 “权限 ”对 话 框 中 单 击 “ 添 加 ” 
按钮 ， 如 图 1-13 所 示 ， 
Lm 下 


[常规 [共享 | 安全 。 | 以 M9 版 本 |[ 自 宝 义 
对 象 名 称 :Fysite 
组 或 用 户 名 0) 

电 hataticatel es 

让 sisTPI 

所 Ainistratecs (tan-ICWdainistraers) 

昭 Vsors (dsm-Pe\sers) | 人 Adninistrators (dsn-PC\Adninistrators) 
人 -0 恕 Users (dsn-PC\Wsers) 
SYSTH 的 权限 P) 从 拒绝 

和 向 eted me 的 权限 
读 取 和 执行 四 Fr 
列 册 文件 夹 内 容 a 完全 控制 
读 取 [a 
写 Es 读 职 和 执行 
设置 ， 反 列 册 文件 来 内 容 
be 请 单 击 “ 高 ”世间 级 ee 
也 访 问 榨 制 和 要 限 了 般 沪 间 控 制 和 摊 限 


闸 的 
图 1-12 “属性 ”对 话 框 图 1-13 “权限 ”对 话 框 


[内 


(9) 在 打开 的 “选择 用 户 或 组 ”对 话 框 中 单 击 “ 高 级 ”按钮 ， 在 打开 的 对 话 框 中 单 击 
“立即 查找 ”按钮 ， 然 后 在 “搜索 结果 ”列表 框 中 选中 IIS USERS 选项 ， 并 单 击 “ 确 定 ” 
按钮 ， 为 网 站 目录 增加 IIS USERS 用 户 组 ， 如 图 1-14 所 示 。 
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图 1-14 为 网 站 目录 增加 IS_USERS 用 户 组 


(10) 在 “选择 用 户 或 组 ”对 话 框 中 单 击 “确定 ”按钮 ， 返 回 “权限 ”对 话 框 ， 在 “组 
或 用 户 名 ”列表 框 中 选中 IIS_USERS 选项 ， 然 后 在 “IIS_USERS 的 权限 ”列表 框 中 增加 
IIS_USERS 组 的 读 写 权限 ， 如 图 1-15 所 示 。 

(11) 在 如 图 1-6 所 示 “Intermet 信息 服务 (IIS) 管 理 器 ”窗口 中 双击 “默认 文档 ”图 标 ， 
在 打开 窗口 的 右 侧 单 击 “ 添 加 ”按钮 ， 设 置 网 站 的 默认 文档 为 index.asp， 如 图 1-16 所 示 。 


对 象 名 称 :。 Fwysite 
组 或 用 户 名 (6) 


梧 Aathenticated Users 
| 也 srsTm 


| MAdministr ators Cdsm-PCWdinistrators) 
IIS_IVSRS (dsm-FC\IIS_IVSRS) 
中 Users (dmPC\Wsers) 


添加 0 
IIs_IusRs 的 权限 中) 


图 1-15 设置 IS_USERS 用 户 组 的 读 写 权限 图 1-16 设置 网 站 的 默认 文档 


EE 


a ee 中 


1.2.3 ”设置 虚拟 目录 


虚拟 目录 指 的 是 Web 服务 器 上 的 一 些 文件 夹 , 这 些 文件 夹 并 不 一 定 要 求 被 包含 在 主 目 
录 中 , 但 是 为 了 方便 用 户 的 访问 和 Web 服务 器 的 管理 , 用 户 可 以 通过 创建 虚拟 目录 将 这 些 
文件 夹 与 主 目录 相关 联 ， 使 得 它们 就 好 像 位 于 主 目录 中 一 样 。 
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【 例 1-3】 在 网 站 服务 器 主 目录 中 设置 一 个 名 称 为 home 的 虚拟 目录 。 
(1) 在 如 图 1-6 所 示 “Intemet 信息 服务 (IIS) 管 理 器 ”窗口 中 右 击 默认 网 站 名 称 ， 在 弹 


出 的 快捷 菜单 中 选择 “添加 虚拟 目录 ”命令 ， 如 图 1-17 所 示 。 
(2) 打开 “添加 虚拟 目录 ”对 话 框 ， 在 “别名 ”文本 框 中 输入 home， 在 “物理 路 径 ” 
文本 框 中 输入 虚拟 目录 对 应 的 物理 路 径 ， 如 图 1-18 所 示 ， 然 后 单 击 “ 确 定 ” 按 钮 。 


EC 


He We 


ET TE 
| 


Defaut web site 主 页 [i 


NEA 
home 


元 也 B 和 
和 
Fmysite\home 


传道 身 们 验 下 
Gee ee 
mle 


图 1-18 “添加 虚拟 目录 ”对 话 框 


图 1-17 添加 虚拟 目录 
(3) 完成 以 上 操作 后 , home 文件 夹 将 以 节点 的 形式 显示 在 站 点 中 。 右 击 虚 拟 目 录 名 称 ， 


在 弹出 的 快捷 菜单 中 选择 “转换 为 应 用 程序 ”命令 ， 如 图 1-19 所 示 。 
(4) 在 打开 的 “添加 应 用 程序 ”对 话 框 中 单 击 “ 确 定 ” 按 钮 ， 即 可 创建 虚拟 目录 ， 


如 图 1-20 所 示 。 
[ye | om。 评 


加 
OSM PC (dam Pods 和 
To "| -有 Fa -二 ss | 下 同村 “Defeuk Web she 


图 1-19 “转换 为 应 用 程序 ”命令 图 1-20 “添加 应 用 程序 ”对 话 框 


注意 : 

用 户 若 要 删除 在 站 点 中 设置 的 虚拟 目录 ， 可 以 打开 “Intemet 信息 服务 (IIS) 管 理 器 ” 窗 
口 ， 然 后 右 击 虚拟 目录 名 称 ， 在 弹出 的 快捷 菜单 中 选择 “删除 ”命令 。 
1.2.4 创建 网 站 


在 Windows 7 操作 系统 环境 的 HS 中 ， 用 户 可 以 创建 多 个 网 站 ， 从 而 对 不 同 的 应 用 程 
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序 进行 有 效 管理 。 
【 例 1-4】 在 “Intemet 信息 服务 (IS) 管 理 器 ”窗口 中 创建 一 个 名 为 mysite 的 网 站 。 
(1) 打开 “Intemet 信息 服务 (IIS) 管 理 器 ”窗口 后 ， 在 窗口 左 侧 的 “连接 ”列表 框 中 选 
中 “网 站 ”选项 ， 在 窗口 右 侧 单 击 “添加 网 站 ”按钮 ， 如 图 1-21 所 示 。 
(2) 打开 “添加 网 站 ”对 话 框 ， 在 “网 站 名 称 ”文本 框 中 输入 mysite， 在 “物理 路 径 ” 
文本 框 中 输入 网 站 的 路 径 ， 在 “IP 地 址 ”文本 框 和 “端口 ”文本 框 中 进行 卫 地 址 和 端口 
的 设置 ， 如 图 1-22 所 示 ， 然 后 单 击 “确定 ”按钮 即 可 。 


ee ms) 


sms 


me 


3 Es 
BR 


an | 
Pei 


人 六 全 突 度 
| 产 二 | 


pr 
am Dl) 
hep 了 192158177 四 


EB 


FO wm contore com marketing eontowe com 


¥ EM 


EE 


3 3 
得 


图 1-21 “Intemnet 信息 服务 (TS) 管 理 器 ”窗口 图 1-22 “添加 网 站 ”对 话 框 


注意 : 


用 户 若 要 删除 创建 的 网 站 ， 可 以 在 “Intemet 信息 服务 (IIS) 管 理 器 ”窗口 中 右 击 网 站 名 
称 ， 在 弹出 的 快捷 菜单 中 选择 “删除 ”命令 。 


1.3 ”测试 网 站 服务 器 


在 Windows 7 操作 系统 中 安装 并 配置 IIS 后 , 可 以 通过 运行 Default Web Site( 默 认 网 站 ) 
下 的 默认 文档 对 网 站 服务 器 进行 测试 。 
【 例 1-5】 测试 【 例 1-2】 架 设 的 ASP 站 点 。 

(1) 将 Ci\inetpub\Wwwwroot 文件 中 的 iisstart.htm 和 welcome.png 文件 复制 到 【 例 1-2】 
架设 网 站 的 物理 路 径 F:mysite 中 ， 并 将 iisstarthtm 文件 重 命名 为 index.asp。 

(2) 打开 “Intemet 信息 服务 (IIS) 管 理 器 ”窗口 , 在 “网 站 ”节点 下 选中 Default Web Site 
站 点 ， 然 后 在 窗口 右 侧 单 击 “ 浏 览 192.168.1.77:80(http)” 按 钮 ， 如 图 1-23 所 示 。 

(3) 此 时 ， 将 在 浏览 器 中 打开 如 图 1-24 所 示 的 index.asp 网 页 。 
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图 1-23 浏览 Default Web Site 站 点 图 1-24 测试 网 站 服务 器 


1.4 ASP 程序 的 编号、 保存、 调试 与 运行 


ASP 实际 上 是 将 标准 的 HTML 文件 扩展 了 一 些 附加 特征 ， 它 像 标准 的 HTML 文件 一 
样 包含 HTML 语句 并 且 最 终 在 浏览 器 上 解释 并 显示 。ASP 文件 的 后 缀 为 .asp， 其 中 包含 实 
现 动态 功能 的 VBScript 或 JScript 语句 ， 如 果 去 掉 那 些 VBScript 或 JScript 语句， 它 和 标准 
的 HTML 文件 没有 任何 区 别 。 

本 节 将 以 【 例 1-2】 架 设 的 ASP 站 点 为 基础 ， 通 过 几 个 简单 的 实例 ， 介 绍 编写 、 保 存 、 
调试 与 运行 ASP 网 页 文件 的 方法 。 


1.4.1 编写 与 保存 ASP 文件 


在 ASP 程序 中 ， 脚 本 通过 分 隔 符 将 文本 和 HIML 标记 区 分 开 来 。 ASP 用 分 隔 符 <% 和 
%> 来 包括 脚本 命令 。 在 一 个 ASP 文件 中 一 般 包含 HTML 标记 、VBScript 或 JScript 语言 的 
程序 代码 以 及 ASP 语法 。 

【 例 1-6】 使 用 Windows 系统 自 带 的 “记事 本 ”工具 ， 编 写 一 个 查看 系统 时 间 的 ASP 
程序 和 一 个 控制 字体 在 网 页 中 大 小 的 ASP 程序 ， 并 将 两 个 程序 文件 保存 至 【 例 1-2】 所 架 
设 的 ASP 网 站 主 目录 中 。 

(1) 启动 Windows 系统 自 带 的 “记事 本 ”工具 ， 然 后 输入 以 下 代码 : 


<Html> 
<Body> 
你 访问 本 页 面 的 时 间 是 <%=Time0%>! 
</Body> 
</Html> 


(2) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 在 “文件 名 ”文本 框 中 
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输入 ASP 程序 文件 的 名 称 后 (例如 输入 test-1.asp)， 选 中 【 例 1-2】 建 立 的 ASP 站 点 目录 
F:mysite， 然 后 单 击 “保存 ”按钮 。 
(3) 选择 “文件 ” |“ 新建” 命令， 新 建 一 个 记事 本 文档 ， 然 后 输入 以 下 代码 : 
<Html> 
<Body> 
<%For 天 1 To 6%> 
<Font Size="<%=1%>"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 
<%Next%> 
</Body> 
</Html> 
(4) 选择 “文件 ”|“ 另 存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 在 “文件 名 ”文本 框 中 
输入 ASP 程序 文件 的 名 称 后 (例如 输入 test-2.asp)， 选 中 【 例 1-2】 建 立 的 ASP 站 点 目录 
F:mysite， 然 后 单 击 “ 保 存 ” 按 钮 。 
用 户 在 编写 ASP 程序 时 ， 应 要 注意 以 下 事项 。 
e 在 ASP 程序 中 ， 字 母 不 分 大 小 写 。 用 户 要 根据 自己 的 习惯 ， 自 由 选择 代码 的 输入 
形式 。 
e 在 ASP 程序 中 ，<% 和 %> 符 号 的 位 置 是 相对 随便 的 ， 可 以 和 ASP 语句 放 在 一 行 ， 
也 可 以 单独 成 为 一 行 。 例 如 ， 下 面 3 种 写法 效果 都 是 一 样 的 。 
第 一 种 : 


<%For I=1 To 6%> 
第 二 种 : 


<% 
ForI=1 To6 
%> 


第 三 种 : 

<%For I=] To 6 

%> 

e@ ASP 语句 必须 分 行 写 ,不 能 将 多 条 ASP 语句 写 在 一 行 里 ， 也 不 能 将 一 条 ASP 语句 
写 在 多 行 里 。 例 如 ， 下 面 的 两 个 例子 都 是 错误 的 。 

例 一 : 


<% a=2 b=3 %> 
例 二 : 


<% 


a= 
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e 如 果 一 条 ASP 语句 过 长 ， 需 要 换行 时 可 采用 两 种 方法 。 一 种 方法 是 不 用 Enter 键 
换行 , 而 是 直接 书写 ， 人 自动 换行 ; 另 一 种 方法 是 用 Enter 键 将 该 语句 分 成 多 行 ， 
只 是 必须 在 每 行 末 尾 (最 后 一 行 除外 ) 加 一 个 下 划 线 ， 如 下 面 的 例子 : 

<%if time <#12:00# and time>=#00:00:00# then 

strGreeting=" 欢 迎 来 访 ! 这 里 是 我 们 最 新 制作 的 网 站 _ 

早上 好 ! 欢迎 你 在 参观 后 提出 宝贵 的 意见 " %> 

e 在 ASP 程序 中 ， 使 用 REM 或 “” 符 号 标记 注释 语句 ， 运 行 时 ASP 不 执行 注释 语 
句 。 在 代码 中 添加 注释 主要 是 为 了 方便 自己 和 别人 阅读 程序 代码 ， 如 下 面 的 例子 : 


<% 
REM 这 是 一 条 注释 语句 ! 
' 这 是 另 一 条 注释 语句 ! 


%> 


另外 ,在 编辑 ASP 程序 代码 时 ， 要 养 成 良好 的 书写 习惯 ， 比 如 说 可 以 为 代码 添加 恰当 
的 缩 进 。 这 样 ， 以 后 自己 和 别人 阅读 起 来 都 方便 一 些 ， 否 则 代码 很 不 容易 读 懂 ， 缩 进 的 方 
法 可 以 参考 本 书 中 的 代码 书写 样式 。 


1.4.2 ”调试 与 运行 ASP 程序 


在 成 功利 用 IIS 架设 ASP 网 站 , 并 在 网 站 中 保存 了 ASP 程序 文件 后 , 可 以 使 用 Intemet 
Explorer(IE) 查 看 网 站 主 目 录 中 的 文件 ， 一 方面 测试 网 站 的 架设 是 否 成 功 ， 另 一 方面 调试 与 
运行 ASP 程序 。 

【 例 1-7】 以 【 例 1-2】 架 设 的 ASP 网 站 为 基础 ， 在 Intemet Explorer 中 运行 【 例 1-6】 
创建 的 ASP 程序 文件 test-1.asp 与 test-2.asp， 并 观察 ASP 文件 在 浏览 器 端 运行 的 情况 。 

(1) 在 浏览 器 地 址 栏 中 输入 http://192.168.1.77/test-1.asp, 按 Enter 键 , 即 可 运行 [ 例 1-6】 
编写 的 ASP 程序 test-1.asp， 如 图 1-25 所 示 。 

(2) 在 浏览 器 地 址 栏 中 输入 http://192.168.1.77/test-2.asp 后 ， 按 Enter 键 ， 即 可 运行 

【 例 1-6】 编 写 的 ASP 程序 test-2.asp， 如 图 1-26 所 示 。 


柄 htpy/192168.177/iesti x | 十 hepy/192168177hest2 x | 十 
CE 襄 本 | 避 vj| 国 Google Qj Wr Ea oo 窗 荔 [ 可 "|[ 国 Googt Q 
你 访问 本 页 面 的 时 间 是 16:54:421! TT 


Dae 小 
使 用 ASP 语 句 控制 文字 大 小 


使 用 ASp 语 名 控制 交 字 大 小 
人 


加 于 器 尼 下 载 | 本 本 中 马 久 > 加 二 器 此 下 载 | 吕 曾 吊 过 @? 


图 1-25 test-l.asp 运行 结果 图 1-26 test-2.asp 运行 结果 
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(3) 右 击 浏览 器 主 窗口 ， 在 弹出 的 快捷 菜单 中 选择 “查看 源 文件 ”命令 ， 在 浏览 器 
显示 test-2.asp 程序 的 源 代码 如 下 ， 如 图 1-27 所 示 。 


<Html> 

<Body> 
<Font Size="1"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 
<Font Size="2"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 
<Font Size="3"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 
<Font Size="4"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 
<Font Size="5"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 
<Font Size="6"> 使 用 ASP 语句 控制 文字 大 小 </Font><Br> 


</Body> 
</Html> 

专 

一 [ee 

Q 
语句 控制 
使 用 SP 语句 朱 制 文 字 大 
使 用 ASP 语 名 控制 me 
“6") 佣 用 和 5? 清 句 梯 制 立 字 大 小 Font> Dr 
OT | 3 TRI 


图 1-27 查看 test-2.asp 网 页 源 代码 


通过 以 上 代码 可 以 看 出 ， 发 送 到 客户 端的 文件 是 经 过 解释 的 ， 将 其 与 【 例 1-6】 中 步骤 
(3) 输 入 的 代码 相 比 较 会 发 现 ， 程 序 代码 已 经 被 转化 为 标准 的 HIML 标记 。 这 样 ， 通 过 客 
户 端 浏览 ASP 网 页 ， 用 户 将 无 法 查看 或 复制 设计 者 编写 的 ASP 程序 ， 从 而 保证 了 ASP 程 
序 的 安全 性 。 


1S 习题 


1. ASP 主要 为 HIML 编写 人 员 提 供 了 在 服务 器 端 运行 脚本 的 环境 ， 使 HIML 编写 人 


员 可 以 利用 和 或 其 他 第 三 方 脚本 语言 创建 ASP， 实 现 有 动态 内 容 
的 网 页 。 


2. ASP 程序 的 脚本 不 是 在 客户 端 运行 的 ， 传 送 到 浏览 器 上 的 Web 页 是 在 
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上 生成 的 。 
3. IIS 允许 在 一 台 计 算 机 上 创建 多 个 Web 站 点 ， 这 些 站 点 可 以 共同 使 用 一 个 卫 地 址 同 
时 提供 信息 发 布 服务 。 它 的 实现 方法 是 为 不 同 网 站 指定 一 个 不 同 的 来 加 以 区 分 。 
4. ASP 文件 的 后 组 为 
5. ASP 用 分 隔 符 包括 脚本 命令 。 
1.5.2 ”选择 题 
1. ASP 文件 的 扩展 名 是 ( 。 )。 
A. htm Bht C. .doc D. .asp 
2. 当前 的 Web 程序 开发 中 通常 采用 ( ”) 模 式 。 
A.C/S B.B/S C.B/B Doe 
3. ASP 脚本 代码 是 在 ( “) 中 执行 的 。 
A. 客户 端 B. 第 一 次 在 客户 端 ， 以 后 在 服务 器 端 
C. 服务 器 端 D. 第 一 次 在 服务 器 端 ， 以 后 在 客户 端 


1.5.3 ”问答 题 


1. 名 词 解释 : 静态 网 页 、 动 态 网 页 、 服 务 器 端 、 客 户 端 、URL。 
2. 结合 URL 知识 简 述 静态 网 页 和 动态 网 页 的 工作 原理 。 

3. 在 IIS 中 ， 设 置 虚拟 目录 和 创建 网 站 的 主要 区 别 是 什么 ? 

4. 如 何 解决 “用 户 访问 网 站 权限 不 足 ” 的 问题 ? 

5. ASP 的 全 称 是 什么 ? ASP 有 哪些 优点 ? 


1.5.4 ”操作 题 


1. 根据 当前 计算 机 的 实际 情况 架设 一 个 名 为 Test 的 ASP 站 点 ， 如 图 1-28 所 示 。 


EE Ser 


图 1-28 假设 ASP 站 点 
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2. 以 第 1 题 架 设 的 ASP 站 点 为 基础 , 创建 并 运行 一 个 .asp 文件 , 在 页 面 上 显示 来 访 日 
期 和 当前 系统 时 间 ， 如 图 1-29 所 示 。 


Ee x Bt 
7S 册 思 ~ 图 Q | > 


当前 系统 时 间 :， 2015 年 8 月 4 日 星期 二 17:12:27 


了 加速 器 总 下 载 |[ 习 面 中 晤 久 ? 
图 1-29 显示 来 访 日 期 和 当前 系统 时 间 


3. 在 IIS 上 的 默认 站 点 上 设置 虚拟 目录 ， 并 进行 测试 。 
4. 在 IJS 上 通过 更 改 端口 号 创建 网 站 ， 并 进行 测试 。 
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教学 目标 
通过 对 本 章 的 学 习 , 读者 应 了 解 和 掌握 HTML 的 各 种 标记 和 语法 , 并 能 够 使 用 HTML 
设计 简单 的 静态 网 页 。 


教学 重点 与 难点 

e。 HTML 文档 的 结构 

@ 创建 并 设置 网 页 

日 在 网 页 中 插入 各 类 元 素 


HTML(Hyper Text Mark-up Language) 即 超 文本 标记 语言 ， 是 制作 ASP 网 页 的 基础 。 
HTML 标记 是 HTML 的 核心 与 基础 ， 用 于 修饰 、 设 置 HTML 文件 的 内 容 及 格式 。 

一 个 HTML 文件 中 包含 了 所 有 将 显示 在 网 页 上 的 文字 信息 , 其 中 也 包括 对 浏览 器 的 一 
些 指示 ， 如 文字 应 放置 在 何 处 、 显 示 模 式 如 何等 。 如 果 还 有 一 些 图 片 、 动 画 、 声 音 或 任何 
其 他 形式 的 资源 ，HTML 文件 也 会 告诉 浏览 器 到 哪里 去 查找 它们 ， 以 及 它们 将 放置 在 网 页 
中 的 什么 位 置 。 


2.1 网 页 的 基础 知识 


Intemet 是 从 Interconnected Networks 延伸 而 来 的 ， 是 跨国 界 的 网 络 。Intemet 把 世界 各 
地 数 以 千 万 计 的 计算 机 和 传输 线路 连接 在 一 起 构成 一 个 网 络 ， 通 过 它 可 以 交换 信息 、 共 享 
资源 ， 并 以 此 为 基础 实现 各 种 计算 机 通信 应 用 项 目 。 在 Intemet 中 ， 网 页 是 它 的 重要 组 成 
部 分 ， 本 节 将 主要 介绍 一 些 与 网 页 相关 的 名 词 和 概念 。 


2.1.1 万 维 网 


WWW(World Wide Web) 即 环球 信息 网 ， 也 可 以 称 为 Web， 中 文 名 字 为 “万 维 网 ”。 
用 户 在 使 用 浏览 器 访问 Web 的 过 程 中 , 无 须 关心 一 些 技术 性 的 细节 即 可 得 到 丰富 的 信息 资 
料 。WWW 是 Intemet 上 发 展 最 快 和 目前 使 用 最 广泛 的 一 种 服务 之 一 。 

简单 地 说 ，WWW 是 漫游 Intemet 的 工具 ， 它 把 Intemet 上 不 同 地 点 的 相关 信息 聚集 起 
来 ， 通过 WWW 浏览 器 (如 正 ) 检 索 ， 无 论 用 户 所 需 的 信息 (文字 、 图 片 、 动 画 、 声 音 等 ) 在 什 
么 地 方 ， 只 要 浏览 器 为 用 户 检索 到 之 后 ， 就 可 以 将 这 些 信息 “提取 ”到 用 户 的 计算 机 屏幕 上 。 
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2.1.2” 超 文 本 传输 协议 


HTTP(HyperText Transfer Protocol) 即 超 文本 传输 协议 , 它 是 WWW 服务 器 上 使 用 的 最 
主要 协议 。 通过 这 一 跨 平台 的 通信 协议 , 在 WWW 任何 平台 上 的 计算 机 都 可 以 阅读 远方 服 
务 器 (Server) 上 的 同一 文件 。 

HTTP 协议 经 常用 来 在 网 络 上 传送 Web 页 。 当 用 户 以 http:// 开 始 一 个 超 链接 的 名 字 时 ， 
就 是 告诉 浏览 器 去 访问 使 用 HTTP 协议 的 Web 页 。HTTP 协议 不 仅 能 保证 正确 传输 超 文本 
文档 ， 还 可 以 确定 传输 文档 中 的 哪 部 分 ， 以 及 哪 部 分 内 容 首先 显示 。 


2.1.3 ”统一 资源 定位 器 


URL(Uniform Resource Locator) 即 统一 资源 定位 器 , 它 使 用 数字 和 字母 代表 网 页 文件 在 
网 上 的 地 址 。URL 好 比 Intemet 的 门牌 号 码 , 可 以 帮助 用 户 在 Intemet 的 信息 海洋 中 查找 到 
所 需要 的 资料 。 

Web 上 所 能 访问 的 资源 都 有 唯一 的 URL。URL 包括 所 用 的 传输 协议 、 服 务 器 名 称 、 
文件 的 完整 路 径 。 例 如 ， 在 浏览 器 的 URL 处 输入 http://www.sohu.com/index.html 就 可 以 访 
问 搜狐 网 站 的 主页 ， 如 图 2-1 所 示 。 


第 一 部 分 http:// 表 示 要 访问 的 资源 类 型 


| 于 竣 产 -中 国 景 大 的 门户 网 站 


© OY 祝 钙 | Whttp://www.sohu.com/index.html 


第 二 部 分 www.sohu.com 为 主机 名 第 三 部 分 /index.html 表 示 具 体 的 页 面 文件 
图 2-1 浏览 器 的 URL 


如 图 2-1 所 示 ，URL 分 为 三 个 部 分 ， 各 部 分 的 功能 如 下 。 

e 第 一 部 分 http:// 表 示 要 访问 的 资源 类 型 。 在 其 他 常见 资源 类 型 中 ,ftp:// 表 示 FTP 服 
务 器 ，gopher:// 表 示 Gopher 服务 器 ，new:// 表 示 Newgroup 新 闻 组 。 

e 第 二 部 分 www.sohu.com 是 主机 名 , 它 说 明了 要 访问 服务 器 的 Intemet 名 称 。 其 中 ， 
www 表示 要 访问 的 文件 存放 在 名 为 www 的 服务 器 中 ， 多 数 公司 都 有 指定 的 服务 
器 作为 对 外 的 网 上 站 点 ， 叫 作 www; sohu 则 表示 了 该 网 站 的 名 称 ; .com 则 指出 了 
该 网 站 的 服务 类 型 。 

e 第 三 部 分 /index.html 表示 要 访问 主机 的 哪 一 个 页 面 文件 , 可 以 把 它 理解 为 该 文件 存 
放 在 服务 器 上 的 具体 位 置 。 

目前 ， 常 用 的 网 站 服务 类 型 的 含义 如 下 : .com 特 指 事务 和 商务 组 织 ; .edu 表示 教育 机 

构 ; .gov 表示 政府 机 关 ; .mil 表示 军用 服务 ; net 表示 网 关 ， 由 网 络 主机 或 mtemet 服务 提 
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供 商 决定 ; .org 一 般 表 示 公共 服务 或 非 正 式 组 织 。 


2.1.4 超 文 本 标记 语言 


HTML 是 WWW 上 通用 的 描述 语言 。HTML 语言 主要 是 为 了 把 存放 在 一 台 计 算 机 中 
的 文本 或 图 形 与 男 一 台 计 算 机 中 的 文本 或 图 形 方便 地 联系 在 一 起 ， 形 成 有 机 的 整体 。 

HTML 标记 用 于 修饰 、 设 置 HTML 文件 的 内 容 及 格式 。 用 户 只 需要 输入 文件 内 容 和 
必要 的 标记 ， 文 件 内 容 在 浏览 器 窗口 中 就 会 按照 标记 定义 的 格式 显示 出 来 。 一 般 情况 下 ， 
HTML 标记 使 用 下 列 格式 : 


< 标记 > 文件 内 容 </ 标 记 > 
标记 需要 填写 在 一 对 尖 括 号 “<>” 内 ， 通常 是 英文 单词 的 首 字母 或 缩写 。 标 记 一 般 情 


况 下 是 成 对 出 现 的 ， 结 束 标记 是 在 标记 的 前 面 添加 斜 本 “/”。 

在 书写 标记 时 ,英文 字母 的 大 、 小 写 或 混合 使 用 大 小 写 都 是 允许 的 , 如 <HTML>、<html> 
和 <Html> 的 作用 和 效果 都 是 一 样 的 。 

标记 内 可 以 包含 一 些 属性 。 标 记 属性 可 由 用 户 设置 ， 否 则 将 采用 默认 的 设置 值 。 属 性 
名 称 出 现在 标记 的 后 面 ， 并 且 以 空格 进行 分 隔 。 如 果 标 记 具 有 多 个 属性 ， 那 么 不 同 的 属性 
名 称 之 间 将 以 空格 隔 开 。 其 格式 如 下 : 


< 标记 名 字 属性 1 属性 2 属性 3 …> 


注意 : 
HTML 对 属性 名 称 的 排列 顺序 没有 特别 的 要 求 ， 用 户 可 根据 个 人 的 爱好 ， 在 标记 之 后 
排列 所 需 的 属性 名 称 。 另 外 ， 标 记 的 属性 值 需要 使 用 双 引 号 或 单 引 号 括 起 来 。 


2.2 HTML 文档 的 基本 结构 


HTML 文件 通常 由 三 部 分 组 成 ， 即 起 始 标 记 、 网 页 标题 和 文件 主体 。 其 中 ， 文 件 主体 
是 HIML 文件 的 主要 部 分 与 核心 内 容 ， 它 包括 文件 所 有 的 实际 内 容 与 绝 大 多 数 的 标记 符号 。 

在 HIML 文件 中 ， 有 一 些 固定 的 标记 要 放 在 每 一 个 HIML 文件 里 。HTML 文件 的 总 
体 结构 如 下 所 示 : 


<Html> 
<Head> 
网 页 的 标题 及 属性 
</Head> 
<Body> 
文件 主体 
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<Body> 
<Html> 


本 节 将 以 以 上 代码 结构 为 例 ， 介 绍 HTML 文档 的 基本 结构 。 


2.2.1 添加 起 始 标 记 


<Html> 标 记 位 于 HTML 文档 的 最 前 面 , 用 于 标识 HTML 文档 的 开始 ; 而 </Html> 标 记 
恰恰 相反 ， 它 放 在 HTML 文档 的 最 后 面 ， 用 于 标识 HTML 文档 的 结束 ， 两 个 标记 必须 一 
起 使 用 。 通 过 对 这 一 对 特殊 标记 符号 的 读 取 ， 浏 览 器 才 可 以 判断 目前 正在 打开 的 是 网 页 文 
件 ， 而 不 是 其 他 类 型 的 文件 。 

<Html> 标 记 的 起 始 和 结束 符号 都 是 可 选 的 , 但 用 户 应 该 养 成 在 文件 中 使 用 <Html> 标 记 
的 习惯 ， 每 次 编写 HIML 文件 之 前 都 应 该 首先 在 网 页 内 添加 <Html>…</Html> 标 记 对 ， 然 
后 再 在 标记 对 之 间 加 入 网 页 的 内 容 。 


2.2.2 ”设置 网 页 标题 


<Head>…</Head> 标 记 对 构成 HTML 文档 的 开头 部 分 ， 在 此 标记 对 之 间 可 以 使 用 
<Title>…</Title>、<Script>…</Scrip 亿 等 标记 对 。 这 些 标记 对 都 是 描述 HTML 文档 相关 信 
息 的 标记 对 ，<Head>…</Head> 标 记 对 之 间 的 内 容 不 会 在 浏览 器 的 窗口 内 显示 出 来 ， 两 个 
标记 必须 一 起 使 用 。 

下 面 将 介绍 儿 种 常用 的 网 页 标题 标记 ， 包 括 <Title> 标 记 、<Base> 标 记 、<Link> 标 记 以 
及 <Meta> 标 记 等 。 


1. <Title> 标 记 

<Title> 和 </Title> 标 记 标 识 HTML 文件 的 标题 ， 是 对 文件 内 容 的 概括 。 一 个 好 的 标题 
应 该 能 使 读者 从 中 判断 出 该 文件 的 大 概 内 容 。 文 件 的 标题 一 般 不 会 显示 在 文本 窗口 中 ， 而 
以 窗口 的 名 称 显示 在 标题 栏 中 。<Title>…</Title> 标 记 对 只 能 放 在 <Head>…</Head> 标 记 对 
之 间 。 例 如 : 


<Title> 我 的 网 页 </Title> 


2. <Base> 标 记 

<Base> 标 记 用 于 设 定 超 链 接 的 基准 路 径 。 使 用 这 个 标记 ， 可 以 大 大 简化 网 页 内 超 链接 
的 编写 。 用 户 不 必 为 每 个 超 链接 输入 完整 的 路 径 ， 而 只 需要 指定 它 相 对 于 <Base> 标 记 所 指 
定 的 基准 地 址 的 相对 路 径 即 可 。 该 标记 包含 参数 href， 用 于 指明 基准 路 径 。 其 用 法 如 下 : 


<Base href="URL"> 
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3. <Link> 标 记 


<Link> 标 记 表 示 超 链接 ， 在 HTML 文件 的 <Head> 标 记 中 可 以 出 现任 意 数目 的 <Link> 
标记 。 它 也 包含 参数 href。<Link> 标 记 可 以 定义 含有 链接 标记 的 文件 与 URL 中 定义 的 文件 
之 间 的 关系 。 

<Link> 标 记 通常 用 来 显示 作者 身份 、 相 关 检索 及 术语 、 旧 的 或 更 新 的 版 本 、 文 件 等 级 、 
相关 资源 等 。rel 参数 用 来 定义 HTML 文件 及 URL 之 间 的 关系 ,rev 参数 用 来 定义 URL 和 
HTML 文件 之 间 的 关系 。 该 标记 用 法 如 下 : 


<Link rev="RELATIONSHIP"rel="RELATIONSHIP" href="URL"> 


4. <Meta> 标 记 


<Meta> 标 记 用 来 指明 与 文件 内 容 相关 的 信息 。 每 一 个 该 标记 指明 一 个 名 称 或 数值 对 。 
如 果 多 个 <Meta> 标 记 使 用 了 相同 的 名 称 ， 其 内 容 便 会 合并 成 一 个 用 逗号 隐 开 的 列表 ， 也 就 
是 和 该 名 称 相关 的 值 。<Meta> 标 记 的 主要 属性 如 下 。 
e http-equiv: 把 标记 放 到 HTTP 头 域 之 中 。HTTP 服务 器 可 使 用 该 信息 处 理 文件 ， 特 
别 是 它 可 在 对 这 个 文件 请 求 的 响应 中 包含 一 个 头 域 .标题 名 取 自 http-equiv 属 性 值 ， 
而 标题 值 则 取 自 content 属性 值 。 
e name: 指明 名 称 或 数值 对 的 名 称 。 如 果 没 有 ， 则 由 http-equiv 给 出 名 称 。 
e content: 指明 名 称 或 数值 对 的 值 ， 一 般 为 textbhtml。 
e@ charset: 指明 网 页 所 使 用 的 基本 字符 集 ， 一 般 为 GB 2312， 即 标准 简体 中 文 。 
<Meta> 标 记 的 一 般 用 法 如 下 : 


<Meta http-equiv="Content-Type" content="text/html; charset=GB2312"> 


2.2.3 输入 文件 主体 


<Body>…</Body> 标 记 对 之 间 的 内 容 是 HTML 文档 的 主体 部 分 , 在 此 标记 对 之 间 可 包 
含 众多 的 标记 和 信息 ， 它 们 所 定义 的 文本 、 图 像 等 将 会 在 浏览 器 的 窗口 内 显示 出 来 ， 两 个 
标记 必须 一 起 使 用 。<Body> 标 记 中 还 可 以 设置 一 些 属性 ， 如 表 2-1 所 示 。 


表 2-1 <Body> 标 记 中 的 属性 


属 性 示例 
<Body Bgcolor="#rggbb"> 设置 背景 颜色 <Body Bgcolor="red"> 红 色 背 景 
<Body text=" 扩 rggbb"> 设置 文本 颜色 <Body text="#0000ff'> 蓝 色 文本 
<Body link="#rggbb"> 设置 超 链接 颜色 <Body link="blue"> 超 链接 为 蓝 色 


<Body vlink="#ftf0000"> 已 使 用 的 超 


link—"#hrggbb" 设置 已 的 交 
<Body Yl ggbb"> 设置 已 使 用 的 超 链 接 的 颜色 链接 为 红色 
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( 续 表 ) 
属 性 用 途 示例 
<Body alink="yellow"> 被 点 击 的 超 
链接 为 黄色 

表 2-1 中 所 示 的 各 个 属性 可 以 结合 使 用 ， 如 <Body Bgcolor="red" Text="#0000ff'>。 引 
号 内 的 rrggbb 是 用 6 个 十 六 进 制 数 表示 的 RGB( 即 红 、 绿 、 蓝 3 色 的 组 合 ) 颜 色 ， 如 #ff0000 
对 应 的 是 红色 。 

此 外 ， 还 可 以 使 用 HTML 语言 所 给 定 的 常量 名 表示 颜色 ， 如 Black( 黑 )、White( 白 )、 
Green( 绿 )、Maroon( 褐 红 )、Olive( 橄 槛 )、Navy( 深 蓝 )、Purmple( 紫 )、Gray( 灰 )、Yellow( 黄 )、 
Lime( 浅 绿 )、Aqua( 蓝 绿 )、Fuchsia( 紫 红 )、Silver( 银 )、Red( 红 )、Blue( 蓝 ) 和 Teal( 青 )。 如 <Body 
Text="Blue"> 表 示 <Body>…</Body> 标 记 对 中 的 文本 使 用 蓝 色 显示 在 浏览 器 窗口 内 。 


<Body alink="#rggbb"> 设置 正在 被 点 击 的 超 链接 的 颜色 


2.2.4 ”HTML 文档 中 的 注释 


注释 标记 用 来 在 HTML 源 文件 中 插入 注释 , 注释 会 被 浏览 器 忽略 不 显示 。 用 户 可 以 使 
用 注释 解释 代码 , 例如 <! 一 这 是 一 条 注释 信息 -->。 这 些 注释 信息 可 在 以 后 编辑 代码 的 时 候 ， 
给 用 户 提 供 必要 的 帮助 和 提示 。 
【 例 2-1】 通 过 使 用 基本 标记 创建 网 页 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 如 图 2-2 所 示 的 代码 。 
<! 一 注释 : 这 是 一 个 具有 基本 标记 的 HTML 网 页 -> 
<Html> 
<Head> 
<Title> 显 示 在 浏览 器 最 上 边 蓝 色 条 中 的 文本 </Title> 
</Head> 
<Body Bgcolor="Teal" text="red"> 
<P> 深 青色 背景 、 红 色 文本 </P> 
</Body> 
</Html> 
(2) 选择 “文件 ”|“ 另 存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 扩展 
名 为 .html( 或 .htm) 的 HTML 文件 ， 例 如 test-3.html。 
(3) 双击 test-3.html 文件 用 浏览 器 将 其 打开 ， 文档 运行 后 的 效果 将 如 图 2-3 所 示 。 
注意 : 


在 注释 标记 中 ， 左 括号 “<” 后 面 需要 添加 一 个 感叹 号 ， 而 右 括号 则 无 须 添加 。 
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习 test-3.html -记事 本 
文件 (月 ” 编 缠 (E) 格式 (O) 过 看 V) 帮助 (H) 


《! 一 注释 ， 这 是 一 个 具有 基本 标记 的 HTIL 网 页 一 > 
风 


Te 


Body B a “Teal” text="red”> 
、 红 色 文本 《</P> 


区 


‘ » 


加 回回 总 下 载 


国 曾 叫 晤 Q? 


图 2-2 在 记事 本 中 输入 代码 


图 2-3 网 页 效果 


2.3 编辑 HTML 网 页 正文 


修改 字体 、 设 置 字号 等 操作 。 另 外 ，HTML 还 允许 对 正文 应 用 不 同 的 字形 和 效果 。 


2.3.1 


一 般 文章 都 有 标题 、 
其 中 n 为 标题 的 等 级 
代码 : 


。HTML 提供 6 个 等 级 的 标题 ， 


输入 网 页 标题 


副标题 、 章 和 节 等 乡 
n 越 小 ， 


正文 是 网 页 的 核心 内 容 , 可 使 用 HIML 语言 在 网 页 内 对 正文 进行 划分 段落 、 插 入 标题 、 


告 构 , HTML 中 也 提供 了 相应 的 标题 标记 <Hn>， 
标题 字号 就 越 大 。 例 如 以 下 


<H1l> 一 级 标题 <H1> 
<H2> 二 级 标题 <H2> 
<P> 这 是 一 行 没有 设置 标题 格式 的 正文 文本 </P> 
<H5> 五 级 标题 <H5> 
<H6> 六 级 标题 </H6> 


用 记事 本 工具 编写 以 上 代码 并 运行 后 的 效果 如 图 2-4 所 示 。 


辣 test-4.html -记事 本 Eel 7 
文件 ( 明 ” 编 加 旧 ” 相 式 (O) 喜 看 (V) 帮助 (H) 
加 > 


《H2> 二 级 标题 </H2 
2 息 一 全 治 生 区 置 标 题 格式 的 正文 文本 /JP》 
Ne 


a 


Derm x Dtest4hr x | + | 
二 级 标题 
这 是 一 行 没 有 设置 标题 格式 的 正文 文本 
五 级 标题 


六 级 标题 


和 书 下 载 | 中 下 中 过 驴 


图 2-4 设置 网 页 标题 格式 
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2.3.2 ”划分 正文 段落 


<P>…</P> 标 记 对 用 来 创建 一 个 段落 ， 在 此 标记 对 之 间 加 入 的 文本 将 按照 段落 的 格式 
显示 在 浏览 器 窗口 中 。HTML 将 多 个 空格 以 及 Enter 换行 等 效 为 一 个 空格 ，HTML 的 分 段 
完全 依赖 于 分 段 标记 <P>。 
此 外 ，<P> 标 记 还 可 以 使 用 Align 属性 ， 它 用 来 说 明 对 齐 方式 ， 语 法 如 下 : 
<P Align=" 对 齐 方 式 "></P> 
以 上 语法 中 ，Align 的 值 可 以 是 Left( 左 对 齐 )、Center( 居 中 ) 和 Right( 右 对 齐 )3 个 值 中 的 
任何 一 个 。 例 如 以 下 代码 : 


<P Align="Left"> 第 一 段 文 字 左 对 齐 。</P> 

<P Align="Center"> 第 二 段 文字 居中 对 齐 。</P> 

<P Align="Right"> 第 三 段 文字 右 对 齐 。</P> 

<P> 上 面 的 三 段 文字 被 P 标记 设置 了 段落 格式 。</P> 


用 记事 本 工具 编写 以 上 代码 并 运行 后 的 效果 如 图 2-5 所 示 。 


的 sxj|nmuwxjomwxil+ | 
ETETCE 图 5 Q 


第 一 段 文字 左 对 齐 。 
辣 test5Shtml- 记 本 局 | 第 二 段 文字 居中 对 齐 。 
文 作 (篇 旨 (E) 格式 (0) 查看 (V) 帮助 (H) 第 三 段 文字 右 对 齐 。 
人 了 Align=“Left “> 第 一 段 文字 左 : 车 于 > </P> A A 
《P Align="Center a 中 对 齐 。</P> 上 面 的 三 段 文字 被 P 标 记 设置 了 段落 格式 。 
<P Align=“Right 
人 泪 留 的 三 咎 文 元 生 法 区 </P> 


加 回回 心 下 载 | 直面 中 司马? 


图 2-5 设置 正文 段落 格式 


另外 ， 利 用 <Br> 标 记 可 以 在 正文 段落 中 创建 一 个 Enter 换行 。 如 果 <Br> 标 记 处 在 
<P>…</P> 标 记 对 的 外 面 , 将 创建 一 个 大 的 Enter 换行 , 即 <B> 标 记 前 面 和 后 面 的 文本 的 行 
与 行 之 间 的 距离 比较 大 ， 若 处 在 <P>…</P> 标 记 对 的 中 间 ， 则 <Br> 标 记 前 面 和 后 面 文本 的 
行 与 行 之 间 的 距离 将 比较 小 。 


2.3.3 设置 文本 格式 


在 HIML 文件 中 ,一般 都 有 大 量 的 文本 和 信息 。 如 要 主 次 分 明 、 重 点 突出 地 显示 这 些 
信息 ， 则 需要 在 格式 设 定 方面 使 用 更 多 的 标记 和 更 详细 的 设置 。 


1. 设置 字体 和 字号 


<Fonf>…</FonP> 标 记 对 用 来 设置 文字 字体 ， 它 的 Face 属性 指定 浏览 器 所 显示 文本 的 
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字体 类 别 ， 而 Size 和 Color 属性 则 可 以 对 输出 文本 的 字体 大 小 、 颜 色 进 行 随意 的 改变 。 


在 使 


Font 标记 的 Face 属性 设置 文本 字体 时 ， 可 指定 一 个 字体 列表 ， 如 果 浏 览 器 不 


支持 第 一 种 字体 ， 就 会 依次 使 用 第 二 种 、 第 三 种 等 后 续 字体 显示 网 页 内 容 。 例 如 以 下 代码 : 


<Font Face=" 宋 体 ,仿宋 体 ,隶书 "> 我 要 显示 的 汉字 </Font> 


Size 属性 用 来 改变 字体 的 大 小 ， 而 Color 属性 则 用 来 改变 文本 的 颜色 ， 颜 色 的 取 值 是 
十 六 进 制 RGB 颜色 码 或 HTML 语言 给 定 的 颜色 常量 名 。 
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黑体 、 斜 体 和 下 画 线 


除了 正常 的 字体 外 ， 还 可 以 为 文本 设置 粗 体 、 斜 体 和 下 画 线 等 字形 。HIML 对 这 些 标 
记 出 现 的 次 序 没有 特别 的 要 求 。 


<B>…</B> 标 记 对 : 用 来 使 文本 以 黑体 字 的 形式 输出 。 
< …</ 标 记 对 : 用 来 使 文本 以 斜体 字 的 形式 输出 。 
<U>…</U> 标 记 对 : 用 来 使 文本 以 加 下 画 线 的 形式 输出 。 
强调 及 加 重 等 效果 


下 面 的 标记 对 用 于 设置 文本 的 强调 、 加 重 等 效果 ， 其 用 法 和 前 面 的 标记 一 样 ， 差 别 在 
于 输出 的 文本 字体 不 太一 样 。 


<Te…</Te> 标 记 对 : 用 来 输出 打字 机 风格 字体 的 文本 。 

<Cite>…</Cite> 标 记 对 : 用 来 输出 引用 方式 的 文本 (通常 是 斜体 )。 
<Em>…</Em> 标 记 对 : 用 来 输出 需要 强调 的 文本 (通常 是 斜体 加 粗 体 )。 
<Strong>…</Strong> 标 记 对 : 用 来 输出 加 强 显示 效果 的 文本 (通常 也 是 斜体 加 粗 
体 )。 


【 例 2-2】 给 网 页 中 的 文字 设置 不 同 的 字体 ， 创 建 网 页 效果 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 如 图 2-6 所 示 的 代码 。 


<Body text="blue"> 


<H1> 最 大 的 标题 <H1> 

<H3> 使 用 h3 的 标题 </H3> 
<H6> 最 大 的 标题 <H6> 
<P><B> 黑 体 字 文 本 </B> </P> 
<P>< 户 斜体 字 文 本 </I> </P> 
<P><U> 下 加 一 划 线 文本 </U> </P> 
<P><Tt 打 字 机 风格 的 文本 </Tt></P> 
<P><Cite> 引 用 方式 的 文本 </Cite></P> 
<P><Em> 强 调 的 文本 </Em></P> 
<P><Strong> 加 重 的 文本 </Strong></P> 
<P><font Size="+1" Color="red">Size 取 值 “+1”、Color 取 值 “red” 时 的 文本 </font></P> 


(2) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “另存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 .html( 或 .htm) 的 HIML 文件 ， 例 如 test-6.html。 
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(3) 双击 test-6.html 文件 用 浏览 器 将 其 打开 ,文档 运行 后 的 效果 将 如 图 2-7 所 示 。 


入 一 一 
YS fe/cserydsnvDe $j” 图 600d ae 
最 大 的 标题 

使 用 h3 的 标题 

最 大 的 标 重 


图 2-6 输入 代码 图 2-7 网 页 文本 格式 效果 


2.4 ”建立 超 链接 


超 链接 一 般 可 分 为 外 部 链接 (Extermal Link) 与 内 部 链接 (Intemal Link)。 单 击 外 部 链接 
时 ， 浏 览 器 窗口 将 显示 其 他 文档 的 内 容 ， 单 击 内 部 链接 时 ， 访 问 者 将 看 到 网 页 的 其 他 部 分 
并 显示 在 当前 浏览 器 窗口 中 。 另 外 ，HTML 还 可 以 创建 指向 邮件 地 址 的 超 链接 ， 单 击 该 超 
链接 之 后 便 可 通过 电子 邮件 软件 给 指定 的 地 址 发 送 邮 件 。 


2.4.1 创建 外 部 链接 


一 个 超 链接 通常 由 以 下 3 部 分 构成 。 

(1) 超 链 接 标 记 对 <A>…</A>， 表 示 这 是 一 个 超 链接 。 
(2) 属性 Href 及 其 值 ， 定 义 了 超 链接 所 指 的 目标 。 

(3) 在 超 链 接 中 显示 在 网 页 上 作为 链接 的 文字 。 
HTML 中 超 链接 文本 的 代码 格式 如 下 : 


<A Href-"URL"> 

单 击 网 页 外 部 链接 时 ， 可 在 访问 者 的 浏览 器 窗口 打开 、 跟 踪 其 他 文档 。 文 档 可 能 保存 
在 其 他 站 点 内 ， 也 可 能 保存 在 当前 站 点 内 ， 为 了 便于 区 分 这 两 种 情况 ， 可 将 指向 其 他 站 点 
文档 的 超 链接 称 为 URL 链接 ， 而 将 指向 同一 站 点 内 文档 的 超 链接 称 为 本 地 链接 。 

创建 URL 链接 时 ， 需 要 给 出 URL 链接 的 完整 网 址 ， 例 如 下 面 的 代码 就 是 在 网 页 中 添 
加 一 个 “清华 大 学 出 版 社 第 五 事业 部 ”的 超 链接 : 


<A Hre 全 "http://www.tupwk.com.cn"> 清 华 大 学 出 版 社 第 五 事业 部 </A> 
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在 一 台 计 算 机 上 对 不 同文 件 进行 链接 称 为 本 地 链接 ， 常 用 相对 路 径 或 绝对 路 径 表 示 一 
个 文件 。 假如 超 链 接 的 目标 位 于 当前 HTML 文档 所 在 文件 夹 的 子 文件 夹 中 , 则 可 直接 使 用 
相对 路 径 地 址 指向 该 目标 。 例 如 : 


<A Hre 全 "bbstlogin html"> 登 录 BBS</A> 
若 使 用 绝对 路 径 地 址 指向 目标 ， 则 可 表示 为 : 
<A Href="/c:\myweb\bbs\login.html"> 登 录 BBS</A> 


注意 : 
“/” 表 示 当 前 路 径 地 址 为 绝对 路 径 。 假 如 超 链 接 的 目标 位 于 当前 HTML 文档 所 在 文 
件 夹 的 上 层 文件 夹 中 ， 则 路 径 使 用 “../” 来 指向 上 层 文件 夹 。 
此 外 ，<A Hre 仁 "></A> 还 具有 Target 属性 ， 此 属性 用 来 指明 浏览 时 的 目标 框架 ， 该 
属性 的 各 项 值 的 用 法 与 含义 如 表 2-2 所 示 。 
表 2-2 Target 属性 的 取 值 与 用 途 
用 途 
只 运用 于 框架 网 页 中 , 若 设 定 则 目标 网 页 将 显示 在 “框架 名 称 ” 
的 框架 中 ， 框 架 名 称 是 事先 由 框架 标记 命名 的 
将 超 链接 目标 的 内 容 打开 在 新 的 浏览 器 窗口 中 
将 超 链接 目标 的 内 容 作为 上 一 个 页 面 
将 超 链 接 目标 的 内 容 显示 在 当前 窗口 中 (默认 值 ) 
将 框架 中 超 链接 目标 的 内 容 显 示 在 没有 框架 的 窗口 中 ( 即 除去 
了 框架 ) 
如 果 不 使 用 Target 属性 ， 当 浏览 者 单 击 了 超 链 接 之 后 将 在 原来 的 浏览 器 窗口 中 浏览 新 
的 HTML 文档 。 若 Target 的 值 等 于 _ blank， 单 击 超 链接 后 将 会 打开 一 个 新 的 浏览 器 窗口 来 
浏览 新 的 HTML 文档 ， 如 下 面 代码 所 示 : 


属 性 
Target=" 框 架 名 称 " 


Target=" blank" 或 Target="new" 


Target="_top" 


<A Href="http://www.163.com"” Target="” blank"> 网 易 网 站 </A> 


2.4.2 创建 内 部 链接 


所 谓 内 部 链接 ， 就 是 网 页 中 的 书签 。 在 内 容 较 多 的 网 页 内 建立 内 部 链接 时 ， 它 的 链接 
目标 不 是 其 他 文档 ， 而 是 网 页 内 的 其 他 位 置 。 在 使 用 内 部 链接 之 前 ， 需 要 在 网 页 内 确定 书 
签 的 位 置 ， 并 使 用 <A> 标 记 的 Name 属性 为 书签 命名 。 内 部 链接 的 一 般 格 式 为 : 


<A Name" 书 签名 称 "> 书签 内 容 </A> 
以 上 格式 中 “书签 名 称 ”是 代表 “书签 内 容 ” 的 字符 串 ， 用 户 可 使 用 简短 、 有 意义 的 
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字符 串 代替 网 页 文本 。 为 了 使 Web 浏览 器 易于 区 分 “书签 名 称 ”与 文档 内 容 ，“ 书 签名 称 ” 
前 面 需 要 添加 # 符 号 。 例 如 ， 先 定义 一 个 标签 A， 然 后 找到 “标签 A” 这 个 标签 ， 就 可 编写 如 
下 代码 : 


<A name=" 标 签 A 心 书签 内 容 </A> 
<A He 人 -"# 标 签 A"> 单 击 此 处 将 使 浏览 器 跳 到 “标签 A ”处 </A> 


2.4.3 创建 邮件 链接 

邮件 链接 可 使 访问 者 在 浏览 页 面 时 ， 只 需要 单 击 电子 邮件 链接 就 能 够 打开 默认 的 邮件 
编辑 软件 ， 向 指定 的 地 址 发 送 邮件 。 电 子 邮 件 链接 的 应 用 格式 如 下 : 

<A Hre 人 "mailtoE-mail 地 址 "> 邮件 链接 文本 </A> 


以 上 格式 中 “E-mail 地 址 ”是 用 户 在 Intemet 上 的 电子 邮件 地 址 ， 而 “邮件 链接 文本 ” 
就 是 访问 者 单 击 的 文本 。 


注意 : 

访问 者 单 击 电子 邮件 链接 时 ， 将 打开 默认 的 电子 邮件 编辑 软件 。 例 如 ， 使 用 Office 系 
列 的 Outlook Express 作为 默认 的 邮件 编辑 器 时 ， 单 击 电子 邮件 链接 时 将 打开 Outlook 
Express 窗口 ，“ 收 件 人 ”一 栏 将 出 现 该 邮件 地 址 。 


2.5 在 HTML 网 页 中 插入 图 片 


制作 ASP 网 页 时 ， 常 需要 在 页 面 上 添加 一 些 图 片 ， 因 为 有 时 “一 图 胜 千言 ”。HITML 
语言 提供 了 <Img> 标 记 来 处 理 图 像 的 输出 。 本 节 将 介绍 在 网 页 内 插入 图 像 文 件 、 设 置 图 像 
链接 的 方法 ， 以 及 通过 HTML 标记 的 运用 改变 图 像 的 显示 尺寸 与 对 齐 方 式 等 。 


2.5.1 插入 网 页 图 片 


HTML 采用 的 图 像 格式 有 GIF、JPG 和 PNG 三 种 。 在 网 页 中 插入 图 像 时， 需要 使 
HIML 的 <Img> 标 记 。 其 使 用 格式 如 下 : 


<Img Src="Picname"> 

以 上 格式 中 ，Src 是 Source( 源 ) 英 文 的 缩写 ，Picname 是 希望 在 网 页 内 显示 的 图 像 的 
URL。 在 网 页 内 创建 图 像 链 接 与 文本 链接 的 区 别 并 不 大 ， 也 需要 使 用 <A> 标 记 ， 并 指明 超 
链接 目标 的 URL， 唯 一 的 区 别 就 是 在 </A > 标记 符号 之 前 要 使 用 <Img> 标 记 。 图 像 链 接 的 标 
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记 格 式 如 下 : 


<A Href="URL"><Img Src="Picname"></A> 
以 上 格式 中 ，URL 是 超 链接 目标 的 URL，Picname 是 图 像 文件 的 URL。 在 网 页 内 插 


入 图 像 链接 时 ， 浏 览 器 窗口 的 图 像 周 围 将 出 现 黑色 边框 ， 如 果 用 户 不 希望 出 现 该 边框 ， 可 
在 <Img> 标 记 符号 内 添加 <Border=0>。 


2.5.2 ”设置 图 片 格式 与 布局 


默认 情况 下 ， 将 图 像 插入 到 网 页 文件 之 后 ， 它 与 网 页 中 的 文本 是 垂直 居 下 对 齐 的 ， 并 且 
文本 出 现在 图 像 的 右 侧 。 要 对 图 像 进一步 设置 , 需要 了 解 更 多 的 属性 设置 方法 , 如 表 2-3 所 示 。 


属 性 


< Se 


<Img Width=" " Height=" "> 


<Img Hspace=" " Vspace=" "> 


Border=" " 


Align="top" 


Alt="" 


Lowsrc=" " 


表 2-3 图 像 的 属性 及 其 用 途 
用 途 

图 片 来 源 
图 片 大 小 ， 此 宽度 及 高 度 一 般 采 用 像素 作 单位 。 通 常设 为 图 片 的 真实 
大 小 ， 以 免 失 真 ， 若 需要 改变 图 片 大 小 最 好 使 用 专用 的 图 像 编 辑 工具 
设 定 图 片 边沿 空白 ， 以 免 文 字 或 其 他 图 片 贴近 。Hspace 用 于 设 定 图 片 
左 、 右 的 空间 ，Vspace 用 于 设 定 图 片上 、 下 的 空间 ， 高 度 采 用 像素 作 
单位 
图 片 边框 厚度 
调整 图 片 旁 边 文字 的 位 置 ， 可 选 值 有 top、middle、bottom、left、right， 
默认 值 为 bottom 
用 以 描述 该 图 形 的 文字 ， 若 使 用 的 浏览 器 不 能 显示 该 图 片 时 ， 这 些 文 
字 将 会 代替 图 片 被 显示 ， 若 浏览 器 显示 了 该 图 片 ， 当 鼠标 移 至 图 片上 
时 该 文字 也 会 显示 
设 定 先 显示 低 解析 度 的 图 片 。 若 在 网 页 中 加 入 的 是 一 张 很 大 的 图 片 ， 用 
户 浏览 时 可 能 需要 很 长 的 下 载 时 间 。 而 设置 一 张 低 解 析 度 的 图 片 后 ， 它 
会 先 被 显示 以 免 浏 览 者 失去 兴趣 ， 通 常 采 用 原 图 的 黑白 版 本 作为 低 解 析 
度 图 片 


【 例 2-3】 利 用 Windows 自 带 的 记事 本 工具 ， 创 建 包 含 多 张 图 片 的 网 页 。 
(1) 新 建 一 个 文件 夹 , 并 将 素材 文件 0137.jpg、 0525.jpg、 0659.jpg、 0218.jpg 和 0211.jpg， 
如 图 2-8 所 示 ， 复 制 到 该 文件 夹 中 。 
(2) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 : 


<Img Src="0137.jpg" > 普通 插入 的 图 片 。</p> 

<Img Src="0218.jpg" Align="Right" > 设 定 了 靠 右 对 齐 的 图 片 。</p> 

<Img Src="0525.jpg" Alt=" 这 是 一 张 火车 图 片 " hspace=10 vspace=20> 设 定 了 上 下 左右 空白 位 置 
及 描述 说 明 的 图 片 。</p> 
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<Img Src="0659.jpg” Border=4 Align="Middle"> 设 定 图 片 中 间 对 齐 ， 边 框 厚度 为 4。</p> 
<Img Src="0211jpg" Width=80 Height=50 > 缩小 了 的 图 片 。</p> 
(3) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 .html( 或 .htm) 的 HTML 文件 (例如 test-7.html), 并 将 其 与 素材 文件 放 在 一 个 文件 夹 中 。 
(4) 双击 test-7.html 文件 用 浏览 器 将 其 打开 ， 文 档 运行 后 的 效果 将 如 图 2-9 所 示 。 


© © 


图 2-8 素材 图 片 图 2-9 网 页 中 图 片 的 效果 


2.5.3 ”在 网 页 中 加 入 水 平 线 


使 用 <Hr> 标 记 可 以 在 网 页 中 插入 一 条 水 平 线 ， 它 的 使 用 方式 如 下 ; 
<Hr Align= 对 齐 方式 Width=x9%,Size=n,Noshade> 


<Hr> 标 记 具 有 Size、Color、Width、Align 和 Noshade 属性 ， 各 属性 的 含义 如 下 。 

e Size 属性 : 用 于 设置 水 平 线 的 厚度 ， 默 认 单 位 是 像素 。 

e。 Width 属性 : 用 于 设置 水 平 线 的 宽度 ， 默认 单位 是 像素 ， 也 可 使 用 占 浏览 器 窗口 的 
百分比 来 设 定 。 

e ”Color 属性 : 用 于 设置 水 平 线 的 颜色 。 

e Align 属性 : 用 于 设置 水 平 线 的 对 齐 方 式 。 

e Noshade 属性 : 不 用 赋值 ， 直 接 加 入 即 可 使 用 ， 它 用 来 加 入 一 条 没有 阴影 的 水 平 线 
(不 加 入 此 属性 ， 水 平 线 将 有 阴影 )。 

【 例 2-4】 利 用 Windows 自 带 的 记事 本 工具 ， 创 建 包含 各 种 水 平 线 的 网 页 。 

(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 如 图 2-10 所 示 的 代码 。 


直接 插入 的 水 平 线 <Hr> 

宽度 为 屏幕 一 半 ， 居 中 对 齐 的 水 平 线 <Hr Align=Middle Width=50%> 
宽度 为 300 像素 ， 靠 右 对 齐 的 水 平 线 <Hr Align=Right Width=300> 
厚度 为 5 像素 的 蓝 色 水 平 线 <Hr Width=50% Size=5 Color="#0000FF"> 
厚度 为 10 像素 的 无 阴影 水 平实 线 <Hr Width=50% Size=10 Noshade> 


(2) 选择 “文件 ”|“ 另 存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 .html( 或 .htm) 的 HIML 文件 ， 例 如 test-8.html。 
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(3) 双击 test-8.html 文件 用 浏览 器 将 其 打开 ， 文 档 运行 后 的 效果 将 如 图 2-11 所 示 。 


了 :esrahm -E 


ty 妨 辐 (E)】 格式 (D) EW 里 
[RE 
图 2-10 输入 代码 图 2-11 网 页 中 水 平 线 的 效果 


2.6 在 HTML 网 页 中 使 用 列表 


使 用 列表 能 够 有 效 地 表达 出 具有 并 列 、 排 序 关 系 的 网 页 内 容 ， 为 访问 者 阅读 网 页 提供 
方便 。HIML 为 用 户 提供 了 编号 列表 、 符 号 列表 与 自 定义 列表 3 种 形式 。 通 过 上 述 列表 的 
相互 嵌 套 ， 还 可 以 进一步 丰富 列表 的 表现 方式 。 


2.6.1 使 用 编号 列表 


当 网 页 中 的 某 些 内 容 存 在 排序 关系 时 ， 可 以 使 用 编号 列表 ， 以 表明 这 些 内容 是 有 前 后 
顺序 的 。 编 号 列表 的 应 用 格式 如 下 : 


<OP 
<Li> 编 号 列表 


</O> 


在 编号 列表 的 开始 与 结束 处 ， 需 要 使 用 <OP>…</OP 标 记 对 (O1 是 Ordered List 英文 的 
缩写 ), 它 用 于 定义 编号 列表 的 作用 范围 。 在 编号 列表 内 容 之 前 必须 添加 <Li> 列 表 项 标记 ( 它 
是 列表 选项 List Item 英文 的 缩写 )， 以 便 与 其 他 列表 相 区 别 。 

编号 列表 支持 Type 属性 ， 属 性 值 与 编号 类 型 的 对 应 关系 如 表 2-4 所 示 。 默 认 情 况 下 ， 

者 号 总 是 从 该 类 型 的 第 1 个 数值 或 字母 开始 的 ， 通 过 Type 属性 可 以 设置 编号 列表 不 同 的 
起 始 序号 。 


表 2-4 <Li> 标 记 的 Type 属性 设置 


罗马 大 写字 母 ， 如 荆 、 本 、 了 HU 等 
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( 续 表 ) 
Type 属性 编号 显示 方式 
i 罗马 小 写字 母 ， 如 站、 站、 这 等 
EE 阿拉 伯 字 母 ， 如 1、2、3 等 


2.6.2 ”使 用 符号 列表 


当 网 页 内 容 出 现 并 列 选项 时 , 可 采用 符号 列表 。 它 的 标记 是 <UL>( 它 是 Unordered List 
英文 的 缩写 )， 在 每 一 列表 项 的 开始 处 需要 使 用 <LP> 标 记 以 示 区 别 。 符 号 列表 的 使 用 格式 
如 下 : 


<U> 
<Li> 符 号 列表 


</U> 


默认 情况 下 ， 符 号 列表 的 项 目 符号 是 圆 点 ， 改 变 Type 属性 的 赋值 时 ， 可 以 更 换 项 目 符号 
的 形式 ， 用 户 可 在 Disc( 圆 点 )、Circle( 圆 圈 )、Square( 方 块 ) 中 选择 满意 的 项 目 符号 。 将 Type 
属性 值 添加 到 <Ul> 标 记 内 ， 记 有 的 列表 项 目 都 采用 相同 的 符号 项 目 ， 将 Type 属性 值 添加 
到 <Li> 标 记 内 ， 它 只 能 改变 当前 列表 的 项 目 符号 ， 通 过 这 种 方法 可 为 列表 内 的 项 目 设置 不 
同 的 项 目 符号 。 


2.6.3 自 定义 列表 


当 网 页 内 出 现 新 词汇 、 术 语 时 ， 为 了 给 访问 者 一 个 明确 的 提示 ， 需 要 对 它们 进行 定义 
和 说 明 ， 此 时 用 户 可 以 使 用 自 定 义 列表 (Definition Lisb。 自 定义 列表 标记 <DL> 是 由 一 系列 
的 词语 标记 <D 己 和 定义 标记 <Dd> 组 成 ,通常 <D 己 标记 与 <Dd> 标 记 成 对 出 现在 网 页 文件 内 ， 
词语 的 定义 内 容 以 首 行 缩 进 的 方式 显示 在 浏览 器 窗口 中 。 

自 定义 列表 的 应 用 格式 如 下 : 


-D> 
<Df> 第 1 条 词语 <Dd> 定 义 内 容 
<Df> 第 2 条 词语 <Dd> 定 义 内 容 


<DI> 
2.6.4 ”定义 衣 套 列表 


HTML 不 仅 允 许 用 户 使 用 单独 的 列表 ， 还 能 够 把 不 同类 型 的 列表 相互 嵌 套 。 柑 套 的 级 
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数 不 受 限制 ， 这 样 就 形成 复合 列表 ， 它 意味 着 第 一 个 列表 的 内 容 还 未 结束 时 ， 另 一 列表 就 
可 以 开始 。 例如， 在 自 定义 列表 内 ， 使 用 编号 列表 说 明 具 有 层次 感 的 列表 选项 ， 使 用 符号 
列表 说 明 具 有 并 列 关系 的 列表 选项 。 

【 例 2-5】 利 用 Windows 自 带 的 记事 本 工具 ， 创 建 包含 各 种 列表 的 网 页 。 

(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 如 图 2-12 所 示 的 代码 。 


<Dl> 
<Dt>ordered<Dd> 现 代 英 汉 词 典 解释 
<O> 
<Li> 安 排 好 的 ; 整齐 的 ，<Li> 规 则 的 ; <Li> 有 秩序 的 ; 
</Ol> 
<Dt>HTML 列表 <Dd> 列 表 的 种 类 
<U> 
<Li> 编 号 列表 <Li> 符 号 列表 <Li> 自 定义 列表 
</UP> 
</DI> 


(2) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 .html( 或 .htm) 的 HTML 文件， 例如 test-9.html。 
(3) 双击 test-9.html 文件 用 浏览 器 将 其 打开 ， 文 档 运行 后 的 效果 如 图 2-13 所 示 。 


Heatahtnl x | 十 
了 test-9html -记事 本 [= /© mE >) © SHHor | co Q 
文件 (” 编 缠 (E 格 z(O) 前 看 V) 帮助 (H) a a 
<D1> 了 现代 英汉 词典 解释 
《Dt>orderedKDd> 天 汉 词 
人 Bt>ordered<Da> 现 代 英汉 词典 解释 1， 安 排 好 的 整齐 的 ; 
《Li) 安 排 好 的 ， 整 齐 的 ，<Li> 规 则 的 ，<Li> 有 秩序 的 ; 2。 规则 的， 
</01> 2 3， 有 秩序 的 ， 
<Dt2HTNL 列 表 <Dd> 列 表 的 种 类 HDL 列表 
> A 列表 的 种 闪 
信号 列表 《44> 符 号 列表 dLi> 自 定义 列表 
< . 表 
< : 维 芭 
| 。 自 定义 列表 
jn 关节 下 载 | 了 而 叫 己 > 
图 2-12 输入 代码 图 2-13 网 页 中 列表 的 效果 


2.7 在 HTML 网 页 中 使 用 表格 


表格 对 于 制作 网 页 是 很 重要 的 ， 现 在 很 多 网 页 都 是 使 用 多 重 表 格 。 主 要 是 因为 表格 不 
但 可 以 固定 文本 或 图 像 的 输出 ， 而 且 还 可 以 任意 地 设置 背景 和 前 景 颜 色 。 


2.7.1 认识 表格 标记 


一 个 表格 由 <Table> 标 记 开 始 , </Table> 标 记 结束 , 表格 的 内 容 由 <Tr> 标 记 和 <Td> 标 记 


。34° ASP 动态 网 站 开发 基础 教程 (第 5 版 ) 


定义 。<Tr> 标 记 说 明 表 格 的 一 个 行 ， 表格 有 多 少 行 就 有 多 少 个 <Tr> 标 记 ; <Td> 标 记 则 设 定 
一 个 单元 格 来 填充 表格 。 

【 例 2-6】 利 用 Windows 自 带 的 记事 本 工具 ， 创 建 包含 简单 表格 的 网 页 效果 。 

(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 如 图 2-14 所 示 的 代码 。 


<Table Border=1> 
<Tr> 
<Td> 编 号 </Td> 
<Td> 姓 名 </Td> 
<Td> 成 绩 </Td> 
</Tr 
<Tr 
<Td>007</Td> 
<Td> 王 燕 </Td> 
<Td>95</Td> 
</Tr> 
</Table> 


(2) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 .html( 或 .htm) 的 HTML 文件 ， 例 如 test-10.html。 
(3) 双击 test-10.html 文 件 用 浏览 器 将 其 打开 ， 文档 运行 后 的 效果 如 图 2-15 所 示 。 


司 test-10.html - 记事 本 

文件 (月 ” 编 沪 (格式 (O) 喜 看 (V) 帮助 (H) 

le Border=1> < 

Brg | LD* Eames 

《ID 押 入 </ 中 一 

TE 入 加 多 窑 廿 | 图 

< ES 和 ERA ER 

<Td>007</Td> 编 呈 绩 

<Td> 王 荐 </Tdy 编号 姓名 成 绩 

<Td?95<]Tdy> [oor 压 稿 |85 

</Tr> 

</Table> 

4 站 = 当 加 速 器 9 下 载 | 于 而 多 局 包 
图 2-14 输入 代码 图 2-15 网 页 中 表格 的 效果 


2.7.2 设置 表格 的 整体 属性 


<Table>…</Table> 标 记 对 用 来 创建 一 个 表格 ， 其 属性 如 表 2-5 所 示 。 


表 2-5 表格 的 属性 
属 性 


<Table Bgcolor=""> 


设置 表格 的 背景 
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( 续 表 ) 


属 性 
<Table Border=""> 


用 途 
设置 表格 边框 的 宽度 ， 若 不 设置 此 属性 ， 则 边框 宽度 默认 为 0 
设置 表格 边框 的 颜色 

设置 表格 边框 明亮 部 分 的 颜色 ( 当 Border 的 值 大 于 等 于 1 时 才 有 用 ) 
设置 表格 边框 阴影 部 分 的 颜色 ( 当 Border 的 值 大 于 等 于 1 时 才 有 用 ) 
设置 表格 单元 格 与 单元 格 之 间 的 空间 大 小 
设置 表格 单元 格 边框 与 其 内 部 内 容 之 间 的 空间 大 小 
设置 整个 表格 的 宽度 ， 单 位 用 绝对 像素 值 或 总 宽度 的 百分比 


<Table BorderColor=""> 


<Table BorderColorlight=""> 
<Table BorderColordark=""> 


<Table Cellpadding=""> 
<Table Width=""> 


注意 : 
<Table>…</Table> 标 记 对 的 各 个 属性 可 以 结合 使 用 。 有 关 宽 度 、 大 小 的 单位 用 绝对 像 
素 值 ， 而 有 关 颜 色 的 属性 使 用 十 六 进 制 RGB 颜色 码 或 HTML 语言 给 定 的 颜色 常量 名 。 


2.7.3 ”设置 表格 的 单行 属性 


<Tr>…</T 忆 标记 对 用 来 创建 表格 中 的 一 行 , 表格 有 多 少 行 就 有 多 少 对 <Tr> 标 记 。<Tr> 
标记 具有 表 2-6 所 示 的 属性 。 


表 2-6 表格 行 的 属性 


属 性 用 途 
<Tr Align=""> 设置 表格 行 的 对 齐 方式 (水 平 )， 可 选 值 为 left、center、right 
<Tr vAlign=""> 设置 表格 行 的 对 齐 方式 (垂直 )， 可 选 值 为 ttp、middle、bottom 
<Tr Bgcolor="> 设置 表格 行 的 底 色 
<Tr BorderColor=""> 设置 表格 行 的 边框 颜色 
<Tr BorderColorlight=""> 设置 表格 行 的 边框 明亮 部 分 的 颜色 
<Tr BorderColordark=""> 设置 表格 行 的 边框 阴影 部 分 的 颜色 


【 例 2-7】 通 过 对 表格 行 的 属性 进行 设置 ， 创 建 一 个 包含 2 行 2 列表 格 的 网 页 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 如 图 2-16 所 示 的 代码 。 


<Table Width="85%" Height="85%" Border="1" Cellspacing="5" BorderColor="black"> 
<Tr BorderColor="#0000FF" Align="Right"> 
<Td> 第 一 行 边界 线 为 蓝 色 </Td><Td> 第 一 行 靠 右 对 齐 </Td> 
</Tr> 
<Tr BorderColorlight="#CF0000" BorderColordark="#00FF00" vAlign="bottom"> 
<Td> 第 二 行 向 光 边框 为 绿色 背光 边框 为 红色 </Td><Td> 第 二 行 靠 底 对 齐 </Td> 
</Tr> 
</Table> 


(2) 选择 “文件 ”|“ 另 存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
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扩展 名 为 .html( 或 .htm) 的 HTML 文件 ， 例 如 test-11.html。 
(3) 双击 test-11.html 文件 用 浏览 器 将 其 打开 ,文档 运行 后 的 效果 如 图 2-17 所 示 。 


( 

E 

[+ 

4 + 
田 | 
fe 


ee | | 
第 一 行 边界 线 为 蔓 色 | | 寓 “ 行 革 有 | 


第 二 行 向 光 边 框 为 绿色 背光 边 | 第 二 行 靠 底 
眶 为 红色 对 齐 


图 2-16 输入 代码 图 2-17 网 页 效果 


2.7.4 设置 表格 单元 格 属性 
下 面 将 介绍 在 HTML 网 页 文档 中 设置 表格 单元 格 属性 的 方法 , 包括 设置 普通 单元 格 属 
性 、 设 置 标题 单元 格 属性 以 及 设置 表格 总 标题 等 。 
1. 设置 普通 单元 格 属性 
<Td>…</Td> 标 记 对 用 来 设置 表格 中 的 一 个 单元 格 的 内 容 及 格式 ， 单 元 格 中 可 以 包含 
文本 、 图 像 、 列 表 、 段 落 、 表 单 、 水 平 线 、 表 格 等 。<Td> 标 记 具 有 属性 ， 如 表 2-7 所 示 。 
表 2-7 单元 格 的 属性 


属 性 用 途 
<Td Width=""> 设置 单元 格 的 宽度 ， 接 受 绝对 值 (如 80) 及 相对 值 (如 80%) 
<Td Height=""> 设置 单元 格 的 高 度 
<Td Colspan=""> 设置 单元 格 的 向 右 合并 的 单元 格 数 
<Td Rowspan=""> 设置 单元 格 的 向 下 合并 的 单元 格 数 
<Td Align=""> 设置 单元 格 的 对 齐 方式 (水 平 )， 可 选 值 为 left、center、right 
<Td vAlign=""> 设置 单元 格 的 对 齐 方式 ( 冬 直 )， 可 选 值 为 top、middle、bottom 
<Td Bgcolor=""> 设置 单元 格 的 底 色 
<Td BorderColor=""> 设置 单元 格 的 边框 颜色 
<Td BorderColorlight=""> 设置 单元 格 的 边框 明亮 部 分 的 颜色 
<Td BorderColordark—""> 设置 单元 格 的 边框 阴影 部 分 的 颜色 
<Td Background=""> 设置 单元 格 的 背景 图 片 ， 与 Bgcolor 任用 其 一 
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2. 设置 标题 单元 格 属性 

<Th> 标 记 与 <Td> 标 记 同 样 是 标记 一 个 单元 格 ， 唯 一 不 同 的 是 <Th> 标 记 所 标记 的 单元 
格 中 的 文字 以 粗 体 出 现 ， 通 常用 于 表格 中 的 标题 栏 。 用 它 取代 <Td> 标 记 的 位 置 就 可 以 了 ， 
其 属性 设 定 请 参考 <Td> 标 记 。 为 <Td> 标 记 所 标识 的 文字 加 上 粗 体 标记 也 能 达到 同样 效果 。 

3. 设置 表格 总 标题 

<Caption> 标 记 的 作用 是 为 表格 加 上 一 个 标题 , 如 同 在 表格 上 方 加 一 个 没有 格 线 的 通栏 
行 ， 通 常用 来 存放 表格 标题 。 

可 使 用 <Caption Align=" " > 属性 设置 表格 标题 行 相对 于 表格 的 对 齐 方式 (水 平 ), 可 选 值 
为 left、center、right、top、middle 与 bottom。 若 Align="bottom"， 标 题 行 便 会 出 现在 表格 
的 下 方 ， 而 与 <Caption> 标 记 语句 在 <Table> 标 记 中 的 位 置 无 关 。 

【 例 2-8】 通 过 对 单元 格 的 属性 进行 设置 ， 创 建 一 个 包含 4 行 3 列表 格 的 网 页 。 

(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 如 图 2-18 所 示 的 代码 。 


<Table Width="350" Border="1" Cellspacing="0" Cellpadding="2" Align="center" Bgcolor="#FFC4E1" 
BorderColor="#0000FF"> 
<Caption> 格 式 单词 与 其 含义 </Caption> 
<Tr Align="center"> 
<Td colspan="3"> 横 向 通栏 示例 </Td> 
</Tr> 
<Tr Align="center"> 
<Td rowspan="3"> 纵 向 通栏 示例 </Td> 
<Th> 格 式 单词 Th><Th> 含 义 </Th> 
</Tr> 
<Tr Align="center"> 
<Td>Width</Td><Td> 宽 度 </Td> 
</Tr> 
<Tr Align="center"> 
<Td>Height</Td><Td> 高 度 </Td> 
</Tr> 
</Table> 


(2) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “另存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 .html( 或 .htm) 的 HTML 文件 ， 例 如 test-12.html。 
(3) 双击 test-12.html 文件 用 浏览 器 将 其 打开 ， 文档 运行 后 的 效果 如 图 2-19 所 示 。 
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图 2-18 输入 表格 图 2-19 网 页 中 表格 的 效果 


2.8 ”在 HTML 网 页 中 使 用 表单 


表单 在 Web 网 页 中 用 来 供 访问 者 填写 信息 , 从 而 使 管理 员 能 获得 访问 者 信息 ,使 网 页 
上 共有 交互 功能 。 表单 设计 在 一 个 HTML 文档 中 , 当 用 户 填 写 完 信息 后 做 提交 (Submib 操 作 ， 
于 是 表单 的 内 容 就 从 客户 端的 浏览 器 传送 到 服务 器 上 ， 经 过 服务 器 上 的 ASP 或 PHP 等 处 
理 程序 处 理 后 ， 再 将 用 户 所 需 信 息 传送 回 客户 端的 浏览 器 ， 这 样 网 页 就 具有 了 交互 性 。 本 
节 将 从 最 基本 的 表单 元 素 开 始 ， 介 绍 如 何 使 用 HTML 的 表单 标记 来 设置 表单 。 


2.8.1 认识 表单 的 基本 结构 


网 页 内 的 表单 由 表单 标记 <Fom> 定 义 ， 使 用 <Form> 标 记 意 味 着 表单 的 开始 ， 而 
</Form> 标 记 符号 则 意味 着 表单 的 结束 。 由 于 表单 通常 用 于 收集 站 点 访问 者 的 信息 ， 因 此 
在 表单 的 内 部 必须 出 现 输入 标记 <Input>， 用 于 收集 表单 数据 。 另 外 ， 还 可 将 表单 数据 发 送 
给 站 点 管理 员 ， 或 者 清除 表单 的 内 容 ， 重 新 输入 表单 。 表 单 标记 的 基本 结构 如 下 所 示 : 


<Form Action=URL Method=getlpost> 


<Input Type=Submit> 
<Input Type=reset> 
</Form> 
表单 标记 <Form> 最 重要 的 属性 就 是 Action 和 Method， 其 中 ，Action 属性 用 于 指定 表 
单 处 理 程序 的 URL， 例 如 <form action="login.asp">， 当 用 户 提交 表单 时 ， 服 务 器 将 执行 该 
HTML 文件 所 在 文件 夹 中 名 为 login.asp 的 ASP 程序 ， Method 属性 用 于 定义 处 理 站 点 访问 
者 提供 数据 的 方法 ， 可 取 值 为 get 方式 与 post 方 式 的 其 中 一 个 。 
eget 方 式 : 在 get 方式 下 ， 处 理 程序 从 当前 HTML 文档 中 获取 数据 ， 然 而 这 种 方式 
传送 的 数据 量 是 有 所 限制 的 ， 一 般 限 制 在 IKB 以 下 。 
@ ”post 方式 : post 方式 与 get 方式 相反 ， 在 post 方式 下 ， 当 前 HTML 文档 把 数据 传 
送 给 处 理 程序 ， 传 送 的 数据 量 要 比 使 用 get 方式 大 得 多 。 
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2.8.2 


设 定 用 户 输入 区 域 


表单 是 一 个 能 够 包含 多 种 不 同 表单 元 素 的 区 域 。 表 单元 素 能 够 让 用 户 在 表单 中 输入 信 


息 ， 有 文本 框 、 密 码 框 、 
最 常 | 


下 拉 菜 单 、 单 选 框 、 复 选 框 等 。 


的 表单 输入 标记 是 <Inpuf> 标 记 ， 它 用 来 定义 一 个 用 户 输入 区 ,用 户 可 在 其 中 输 


入 信息 。<Input Type=""> 标 记 提 供 了 8 种 类 型 的 输入 区 域 ， 由 Type 属性 决定 区 域 类 型 ， 如 


表 2-8 所 示 。 
表 2-8 表单 的 各 项 组 成 元 素 

Type 属性 取 值 输入 区 域 类 型 输入 区 域 示例 
<Input Type="Text" 单行 文本 输入 区 域 。Size 与 Maxlength 属性 用 来 
Size=" Maxlength=""> | 定义 文本 框 的 大 小 与 可 输入 的 最 大 字符 数 姓名 : [一 
<Input Type="Submit'> | 将 表单 内 容 提交 给 服务 器 的 按钮 
<mputType-"Reset > 将 表单 内 容 全 部 清除 ， 重 新 填写 的 按钮 重要 | 
<Input Type="Checkbox" -个 复 选 框 , Checked 属性 用 来 设置 该 复 选 框 在 | 请 选择 你 的 爱 


Checked> 

<Input Type="Hidden"> 
<Input Type="Image" 
Src="URL"> 

<Input Type="Password"> 


<Input Type="Radio" 
Checked> 


默认 情况 下 是 否 被 选中 

隐藏 区 域 , 用 户 不 能 在 其 中 输入 , 它 常用 来 预 设 
某 些 要 传送 的 信息 

使 用 图 像 代替 Submit 按钮 ， 图 像 的 源 文件 名 由 
Sre 属性 指定 。 用 户 单 击 后 ， 表 单 中 的 信息 和 单 
击 位 置 的 x、y 坐标 一 起 传送 给 服务 器 

输入 密码 的 区 域 , 当 用 户 输入 密码 时 , 区 域内 将 
会 显示 “*” 
单 选 按钮 类 型 ,Checked 属性 用 来 设置 该 单 选 框 
默认 情况 下 是 否 被 选中 


旺 
本 


请 输入 密码 ; 
一 


请 输入 性 别 : 
CO 男 C 女 


以 上 8 种 类 型 的 输入 区 域 有 一 个 公共 的 属性 Name， 此 属性 为 每 一 个 输入 区 域 设 置 一 个 名 
字 , 一 个 输入 区 域 对 应 一 个 名 字 , 服务 器 就 是 通过 调用 某 一 输入 区 域 的 名 字 的 Value 属性 来 获得 


该 区 域 的 数据 ， 而 Value 属性 是 另 一 个 公共 属性 ， 它 可 用 来 指定 输入 区 


2.8.3 


设 定 列表 框 


列表 框 是 
下 拉 列 表 框 内 ， 
表单 的 列表 框 是 


<Select Name= "name"> 
<Option> 
</Select> 


1<Select> 和 <Option> 两 个 标记 来 定义 的 ， 它 的 使 


域 的 默认 值 。 


j 于 确定 选项 内 容 的 另 一 种 方式 ， 它 包括 下 拉 列 表 框 和 滚动 列表 框 两 种 ， 在 
只 能 选择 其 中 的 一 个 选项 ; 在 滚动 列表 框 内 ， 则 可 以 选择 其 中 的 多 项 内 容 。 


格式 如 下 : 
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<Select> 标 记 具 有 Multiple、Name 和 Size 等 属性 。Multiple 属性 无 须 赋值 ， 直 接 加 入 
标记 中 即 可 使 用 ， 加 入 此 属性 后 列表 框 即 可 多 选 ， Name 属性 用 于 确定 列表 的 名 称 ，Size 
属性 用 来 设置 列表 的 高 度 ， 默 认 值 为 1。 

<Option> 标 记 用 来 指定 列表 框 中 的 一 个 选项 ， 它 放 在 <Select>…</Select> 标 记 对 之 间 。 
此 标记 具有 Selected 和 Value 属性 ，Selected 属性 用 来 指定 默认 的 选项 ，Value 属性 用 来 给 
<Option> 标 记 指定 的 那 一 个 选项 赋值 ， 这 个 值 是 要 传送 到 服务 器 上 的 ， 服 务 器 正 是 通过 调 
用 <Select> 区 域 的 名 字 的 Value 属性 来 获得 该 区 域 选中 的 数据 项 的 。 


【 例 2-9】 创 建 一 个 包含 列表 框 的 表单 网 页 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 如 图 2-20 所 示 的 代码 。 


<form action="apply.asp" method="post"> 
<P> 请 选择 你 的 年 龄 : 
<Select name="old" Size="1"> 
<option Value=" 少 年 ">9~18 
<option Value=" 青 年 " selected>19~35 
<option Value=" 中 年 ">36~55 
<option Value=" 老 年 ">55 以 上 
</Select> 
<P> 请 选择 你 所 在 的 城市 : 
<Select name="city" multiple Size="4"> 
<option Value="beijing"> 北 京 
<option Value="shanghai" selected> 上海 
<option Value="nanjing"> 南 京 
<option Value="zhengzhou"> 郑 州 
</Select> 
</form> 


(2) 选择 “文件 ”| “另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 .html( 或 .htm) 的 HTML 文件 ， 例 如 test-13.html。 
(3) 双击 test-13.html 文件 用 浏览 器 将 其 打开 ， 文 档 运 行 后 的 效果 将 如 图 2-21 所 示 。 


ee te x| + re 
© 窗 巴 | 避 vj 目 (QQ 


请 选择 你 的 年 龄 : |19~35 " 


北京 * 
上 海 


南京 
请 选择 你 所 在 的 城市 : 郑州 ~ 习 
9 加 连 委 凸 下 载 | 悦 窗 只 马 @Qv 


图 2-20 输入 代码 图 2-21 网 页 中 表单 的 效果 
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2.8.4 设 定 文本 框 与 文件 选项 


<Textarea>…</Textarea> 标 记 对 用 来 创建 一 个 可 以 输入 多 行文 本 的 文本 框 ， 此 标记 对 
用 于 <Form>…</Form> 标 记 对 之 间 。<Textarea> 标 记 对 具有 Name、Cols 和 Rows 属性 。Cols 
和 Rows 属性 分 别 用 来 设置 文本 框 的 列 数 和 行 数 ， 这 里 列 与 行 是 以 字符 数 为 单位 的 。 

如 果 在 表单 内 填写 的 内 容 太 多 ， 例 如 个 人 工作 经 历 等 ， 为 了 方便 访问 者 填写 ， 可 在 表 
单 内 添加 文件 选项 。 

在 表单 内 添加 文件 选项 时 ， 用 户 可 使 用 <Form> 标 记 的 Enctype 属性 ， 以 指定 文件 的 数 
据 类 型 ， 使 用 该 属性 还 需要 将 <Input> 标 记 的 Type 属性 设置 为 File。 


【 例 2-10】 创 建 一 个 包含 文本 框 与 文件 选项 的 表单 网 页 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 如 图 2-22 所 示 的 代码 。 


<Form Action="select.asp" Method="post"> 
<P> 请 输入 留言 : 
<Textarea name="ly" Cols="20" Rows="4"> 
请 在 这 里 输入 您 的 看 法 和 见解 
</Textarea> 
<Br><Br><Hr Align=left><Br> 
请 选择 上 传 的 文件 :<Input name="filename" Type="file"><P> 
<Input Type=Submit Value=" 提 交 "> 
<Input Type=Reset Value=" 重 选 "> 
</Form> 


(2) 选择 “文件 ” |“ 另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 .html( 或 .htm) 的 HIML 文件 ， 例 如 test-14.html。 
(3) 双击 test-14.html 文件 用 浏览 器 将 其 打开 ， 文 档 运行 后 的 效果 如 图 2-23 所 示 。 


E> test-14.htm x | + 
加 9 定 IBvQ| Yr 


请 在 这 里 输入 您 的 看 法 和 
见解 
请 输入 留言 : 
Er RR 帮助 H) 
Forn Actior="select. asp "lethod "post”> 
各 请 篇 人 名 请 选择 上 传 的 文件 : 


选择 文件 | 未 选择 任何 文件 


提交 | | 重 先 


9 加速 器 此 下 载 | 本 而 嘿 马 双 > 


图 2-22 输入 代码 图 2-23 网 页 中 表单 的 效果 
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2.9 在 HTML 网 页 中 使 用 框架 


框架 网 页 把 浏览 器 窗口 切割 成 几 个 独立 的 部 分 ， 打 开 的 链接 目标 文件 只 占用 浏览 器 窗 
口 的 某 个 区 域 ， 该 区 域 就 是 框架 网 页 的 目标 框架 。 框 架 网 页 的 出 现 ， 使 得 访问 者 在 浏览 
窗口 中 可 同时 观察 多 个 网 页 。 


2.9.1 认识 框架 标记 


设计 框架 网 页 时 ，<Frame> 标 记 和 <Frameset> 标 记 用 于 定义 框架 网 页 的 结构 。 由 于 框 
架 网 页 的 出 现 ， 从 根本 上 改变 了 HIML 文档 的 传统 结构 ， 因 此 在 出 现 <Frameset> 标 记 的 文 
档 中 ， 将 不 再 使 用 <Body> 标 记 ， 包 含 框架 网 页 的 HIML 文档 的 基本 结构 如 下 。 


<Html> 
<Head>…</Head> 
<Frameset>*…</Frameset> 
<Frame Src="URL"> 
</Html> 


其 中 ，URL 是 用 于 确定 在 框架 网 页 内 显示 的 网 页 文件 的 地 址 。 


注意 : 

如 果 考 虑 到 一 些 不 支持 框架 网 页 功能 的 浏览 器 ,可 使 用 <Noframes>…</Noframes> 标 记 
对 ， 把 此 标记 对 放 在 <Frameset>…</Framese 亿 标记 对 之 间 。 

在 网 页 内 添加 框架 网 页 ， 就 意味 着 对 浏览 器 窗口 进行 纵向 与 横向 的 划分 。Rows 用 来 
规定 主 文档 中 各 个 横向 划分 的 框架 的 行 定位 , 而 Cols 用 来 规定 主 文档 中 各 个 纵向 划分 的 框 
架 的 列 定位 。 这 两 个 属性 的 取 值 可 以 是 百分数 、 绝 对 像素 值 或 星 号 “*”， 其 中 星 号 代表 那 
些 未 被 划分 的 空间 ， 如 果 同 一 个 属性 中 出 现 多 个 星 号 ， 则 将 剩 下 的 未 被 说 明 的 空间 平均 分 
配 。 同 时 ， 所 有 的 框架 将 按照 Rows 和 Cols 的 值 从 左 到 右 ， 然 后 从 上 到 下 排列 。 

设置 框架 网 页 大 小 尺寸 的 例子 如 下 : 


<Frameset RoWs="*,* *"> 
该 例 共 设置 有 3 个 按 列 排列 的 框架 ， 每 个 框架 占 整 个 浏览 器 窗口 的 1/3。 
<Frameset Cols="40%,*,*"> 


该 例 共 设置 有 3 个 按 行 排列 的 框架 ， 第 一 个 框架 占 整 个 浏览 器 窗口 的 40%， 剩 下 的 空 
间 平 均 分 配给 另外 两 个 框架 。 


<Frameset Rows="40%,*" Cols="50%,*,200"> 
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该 例 共 设置 有 6 个 框架 ， 先 是 在 第 一 行 中 从 左 到 右 排列 3 个 框架 ， 然 后 在 第 二 行 中 从 
左 到 右 再 排列 3 个 框架 ， 即 两 行 三 列 ， 所 占 空间 依据 Rows 和 Cols 属性 的 值 ， 其 中 200 表 
示 的 意思 为 200 像素 。 


注意 : 

使 用 <Frameset> 标 记 时 ，Rows 和 Cols 这 两 个 属性 至 少 必 须 选 择 一 个 ， 否 则 浏览 器 只 
显示 第 一 个 定义 的 框架 。 如 果 要 固定 框架 的 结构 大 小 ， 不 允许 用 户 在 浏览 时 拖 动 改变 框架 
的 大 小 ， 可 在 HIML 代码 中 添加 一 句 <Frame NoreSize>。 


2.9.2 ”确定 框架 目标 


在 框架 网 页 内 单 击 超 链 接 之 后 ， 链 接 目 标 就 会 出 现在 目标 框架 内 。 在 确定 目标 框架 之 
前 ， 应 该 为 它 命名 ， 通 过 框架 网 页 的 名 称 来 确定 目标 框架 的 位 置 ， 框 架 网 页 的 名 称 应 该 注 
意 区 分 大 小 写 。 内 容 相 同 、 大 小 写 不 同 的 框架 网 页 名 称 将 被 认为 是 不 同 的 框架 网 页 。 确 定 
目标 框架 网 页 的 通用 格式 如 下 : 


<Frame Name=" 框 架 网 页 名 称 "> 

<A Href=URL, Target=" 框 架 网 页 名 称 "> 

对 于 一 些 特殊 的 框架 网 页 ，HTML 已 经 预先 为 其 设置 了 名 称 ， 这 些 常用 的 特殊 框架 网 

页 包括 以 下 几 类 。 

e black: 空白 框架 网 页 。 单 击 链接 文本 之 后 ， 将 打开 一 个 新 的 浏览 器 窗口 ， 并 显示 
链接 目标 。 

eself: 将 链接 指向 当前 框架 网 页 。 单 击 链接 文本 之 后 ， 链 接 目 标 将 在 链接 文本 所 在 
的 框架 网 页 内 出 现 ， 并 且 链 接 文 本 窗口 将 被 刷新 。 

eparent: 将 链接 指向 父 框 架 网 页 。 如 果 没 有 父 框架 网 页 ， 那 么 它 就 指向 自己 。 父 框 
架 、 子 框架 网 页 是 根据 网 页 的 结构 关系 设置 的 。 

e top: 指向 整个 浏览 器 窗口 本 身 ， 它 是 打开 网 页 时 首先 看 到 的 浏览 器 窗口 。 


2.9.3 ”设置 框架 网 页 的 外 观 


框架 网 页 外 观 是 由 框架 网 页 的 边框 、 间 距 、 颜 色 、 页 边 距 、 滚 动 条 等 组 成 的 。 默 认 情 
况 下 ，HTML 提供 了 一 系列 的 默认 值 ， 分 别 对 上 述 选项 进行 设置 。 根 据 应 用 框架 网 页 的 背 
景 、 场 合 的 不 同 ， 用 户 可 以 自 定义 框架 网 页 的 外 观 。 

通过 设置 FrameBorder 属性 ， 可 以 自 定义 边框 是 否 出 现 。 设 置 框架 网 页 边框 的 应 用 格 
式 如 下 : 


<Frame FrameBorder=Yes|INo> 
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其 中 , Yes 表示 在 浏览 器 窗口 显示 框架 网 页 边框 ; 如 果 选 择 No, 框架 网 页 边框 将 消失 。 
类 似 地 ， 将 FrameBorder 属性 设置 为 0 时， 框架 网 页 边框 也 将 消失 ， 但 设置 任何 大 于 0 的 
数值 时 ， 框 架 网 页 边框 都 会 出 现 ， 并 且 宽 度 是 一 致 的 。 

框架 网 页 间距 是 指 框架 网 页 之 间 的 空白 区 域 ， 框 架 网 页 的 内 容 不 会 出 现在 该 区 域 。 使 
用 <Frameset> 标 记 的 Framespacing 属性 可 以 设置 不 同 的 框架 网 页 间距 ， 当 需要 将 浏览 器 框 
架 网 页 内 所 有 的 框架 网 页 间距 设置 为 50 像素 时 ， 可 在 网 页 文件 内 添加 下 列 语句 : 


<Framest Cols="10%,*" Framespacing=50> 


每 个 框架 网 页 都 相当 于 一 个 独立 的 网 页 ， 因 此 可 对 网 页 的 页 边 距 进行 设置 。<Frame> 
标记 的 MarginLength 和 MarginHeight 属性 分 别 用 于 设置 页 边 距 的 宽度 和 高 度 。 


注意 : 

当 框 架 网 页 的 内 容 超过 框架 网 页 的 大 小 尺寸 时 ， 可 以 使 用 滚动 条 拖 动 的 方式 观察 整个 
网 页 的 内 容 。 用 户 可 通过 <Frame> 标 记 的 Scrolling 属性 决定 是 否 允 许 滚动 条 出 现在 浏览 器 
窗口 ， 用 户 可 将 Yes、No、Auto 赋值 给 Scrolling 属性 。 默认 情 况 下 ， 系 统 将 给 Scrolling 
属性 赋值 为 Auto, 这 样 可 根据 框架 网 页 内 容 的 多 少 , 决定 是 否 在 浏览 器 窗口 内 出 现 滚动 条 。 


【 例 2-11】 创 建 一 个 包含 框架 的 网 页 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 如 图 2-24 所 示 的 代码 。 


<Frameset Cols=20%,*> 
<Frame Sre="http://www.edu.cn"> 
<Frameset Rows=40%,*> 
<Frame Src="http://www.pku.edu.cn"> 
<Frame Src="http://www.tsinghua.edu.cn"> 
</Frameset> 


</Frameset> 

(2) 选择 “文件 ” |“ 另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 话 框 ， 将 以 上 代码 保存 为 一 个 
扩展 名 为 .html( 或 .htm) 的 HTML 文件 ， 例 如 test-15.html。 

(3) 双击 test-15.html 文件 用 浏览 器 将 其 打开 ， 文档 运行 后 的 效果 将 如 图 2-25 所 示 。 


司 testrlshml-is+z 
EEC GE VEEIO 
《Eraneset Cols=20%, +*> 本 
《Frame Src="http://omm. edu. cn”> 

40%, #> 


rameset Rows=40%, 
《Frame Src="http://wwm. pku. edu cn > 
《Frame Src="http://wm. tsinghua. edu. cn”> 
《/Frameset> 
</Frameset> 


«| 


Em 


图 2-24 输入 代码 图 2-25 框架 网 页 效果 
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2.10 在 HTML 网 页 中 使 用 CSS 


CSS(Cascading Style Sheets) 即 疤 层 样式 表 是 W3C 协会 为 弥补 HTML 在 显示 属性 设 定 
上 的 不 足 而 制定 的 一 套 扩展 样式 标准 。CSS 标准 中 重新 定义 了 HIML 中 原来 的 文字 显示 样 
式 ， 增 加 了 一 些 新 概念 ， 如 类 、 层 等 ， 可 以 对 文字 重合 、 定 位 等 。 所 谓 “ 层 苹 ”， 实 际 上 
就 是 将 显示 样式 独立 于 显示 的 内 容 ， 进 行 分 类 管理 ， 如 分 为 字体 样式 、 颜 色 样式 等 ， 需 要 
使 用 样式 的 HTML 文件 进行 套用 。 


2.10.1 CSS 的 特点 


为 了 使 用 户 更 好 地 了 解 CSS， 下 面 介绍 CSS 的 特点 。 

e 将 显示 格式 和 文档 结构 分 离 : HTML 定义 文档 的 结构 和 各 要 素 的 功能 ， 而 CSS 将 
定义 格式 的 部 分 和 定义 结构 的 部 分 分 离 ， 能 够 对 页 面 的 布局 进行 灵活 控制 。 

e 对 HTML 处 理 样式 的 最 好 补充 : HTML 对 页 面 布局 上 的 控制 很 有 限 ， 如 精确 定位 、 
行 间 距 或 者 字 间 距 等 ，CSS 可 以 控制 页 面 中 的 每 一 个 元 素 ， 从 而 实现 精确 定义 ， 
CSS 控制 页 面 布局 的 能 力 逐 步 增 强 。 

e 体积 更 小 ， 加 快 网 页 下 载 速 度 : 样式 表 是 简单 的 文本 ， 文 本 不 需要 图 像 ， 不 需要 
执行 程序 ， 不 需要 插件 ， 这 样 CSS 就 可 以 减少 图 像 用 量 、 表 格 标签 及 其 他 加 大 
HTML 体积 的 代码 ， 从 而 减少 文件 尺寸 ， 加 快 网 页 的 下 载 速度 。 

e 实现 动态 更 新 ， 减 少 工 作 量 : 定义 样式 表 ， 可 以 将 站 点 上 的 所 有 网 页 指向 一 个 独 
立 的 CSS 文件 ， 只 要 修改 CSS 文件 的 内 容 ， 整 个 站 点 相关 文件 的 文本 就 会 随 之 更 
新 ， 减轻 了 工作 负担 。 


注意 : 
样式 可 以 内 谋 在 HTML 文件 中 ， 也 允许 定义 为 一 个 独立 的 CSS 样式 文件 ， 这 样 可 以 
把 显示 的 内 容 和 显示 样式 定义 分 离 。 一 个 独立 的 样式 表 可 以 用 于 多 个 HTML 文件 ,为 整个 


Web 站 点 定义 一 致 的 外 观 。 更 改 CSS 的 内 容 ， 与 之 相 链接 文 件 的 文本 将 自动 更 新 。 


2.10.2 定义 CSS 样式 

CSS 样式 中 主要 包含 3 种 选择 符 ， 分 别 为 标记 选择 符 、 类 选择 符 和 ID 选择 符 。 下 面 
将 根据 这 3 种 选择 符 介绍 定义 CSS 样式 的 方法 。 

1. 标记 选择 符 


标记 选择 符 就 是 HTML 的 标记 符 ， 如 BODY、TABLE、P、A 等 。 如 果 在 CSS 中 定义 
了 标记 使 用 的 样式 ， 那 么 在 整个 网 页 中 ， 该 标记 的 属性 都 将 应 用 定义 中 的 设置 。 语 法 如 下 : 
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tag{property:value} 
例如 ， 设 置 表格 的 单元 格 内 的 文字 大 小 为 9pt， 颜 色 为 红色 的 CSS 代码 如 下 : 


td {font-size: pt; color red:} 


CSS 可 以 在 一 条 语句 中 定义 多 个 标记 选择 符 。 例 如 ， 将 单元 格 内 的 文字 和 段落 文本 设 
置 为 蓝 色 的 CSS 代码 如 下 : 


td,p{color: blue;} 
2. 类 选择 符 


如 果 在 页 面 中 不 需要 一 种 标记 遵循 同一 种 样式 或 者 需要 不 同 的 标记 遵循 相同 的 样式 ， 
利用 类 选择 符 和 标记 的 class 属性 就 可 以 做 到 这 两 点 。 类 选择 符 在 CSS 中 有 两 种 定义 格式 。 
格式 1 的 语法 如 下 : 


Tag.Classname {property:value} 


这 种 格式 的 类 选择 符 所 定义 的 样式 只 能 用 在 特定 的 标记 上 。 例如, 针对 <p> 标 记 定义 一 个 
类 blue 样式 ， 即 只 有 class 属性 为 blue 的 <p> 标 记 才 遵循 此 样式 中 的 定义 ， 代 码 如 下 : 


<head> 
<style type="text/css" > 
p.blue {background-color:#0000FF;} 
</style> 
</head> 
<body> 
<p class="blue"> 本 段 文字 的 背景 颜色 为 #0000FF( 蓝 色 )</p> 
<p> 本 段 文字 无 背景 颜色 </p> 
</body> 


格式 2 的 语法 如 下 : 


.Classname {property:value} 


这 种 格式 的 类 选择 符 可 以 使 用 不 同 的 标记 遵循 相同 的 样式 ， 只 要 将 标记 的 class 属性 值 设 
置 为 类 名 就 可 以 了 。 例如， 定义 类 text， 这 相当 于 将 文件 定义 为 *.text( 即 标记 是 通配符 表示 的 ， 
匹配 所 有 标记 )， 该 样式 将 应 用 于 <h2> 标 记 和 <fon 人 > 标记， 代码 如 下 : 


<head> 
<style type="text/css" > 
.text{font-family: "宋体 "; font-size:12pt color:red:} 
</style> 
</head> 
<body> 
<h2 class="text"> 人 荷塘 月 色 <h2> 
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<font class="text"> 和 荷塘 月 色 ， 凤 凰 传奇 </font> 
body> 
3. ID 选择 符 


了 D 选择 符 用 于 定义 一 个 元 素 的 独 有 样式 。ID 选择 符 的 用 法 是 在 HIML 标记 的 ID 属性 中 
引用 CSS 样式 。 语 法 如 下 : 


#IDname {property:value} 
例如 ， 定 义 #text 样式 ， 引 用 该 样式 的 <p> 标 记 内 的 文本 字体 为 “黑体 ”， 代 码 如 下 : 


<head> 
<style type="text/css" > 
#text{font-family: "黑体 ";} 
</style> 
</head> 


<body> 
<p id="text"> 网 页 文字 </font> 
</body> 


2.10.3 引用 CSS 样式 的 方法 

引用 CSS 样式 的 方法 有 4 种 ， 分 别 为 链接 到 外 部 的 样式 表 、 引 入 外 部 的 样式 表 、<style> 
标记 嵌入 样式 和 内 联 样式 。 

1. 链接 到 外 部 的 样式 表 


如 果 多 个 HTML 文件 要 共享 样式 表 ， 可 以 将 样式 表 定 义 为 一 个 独立 的 CSS 样式 文件 。 
HTML 文件 在 头 部 用 <link> 标 记 链接 到 CSS 样式 文件 。 
例如 ，<head> 标 记 内 用 <link> 标 记 链接 CSS 样式 文件 syle css， 代 码 如 下 : 


<link rel="stylesheet" href="style.css" type="text/css"> 
2. 引入 外 部 的 样式 表 


这 种 方式 是 在 HIML 文件 的 头 部 <style>…</style> 标 记 对 之 间 ， 通 过 @import 声明 引入 外 
部 样式 表 。 格 式 如 下 : 


<style> 


@import URL(" 外 部 样式 表 文件 名 称 "); 


</style> 
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例如 ， 通 过 @import 声明 引入 外 部 样式 表 ， 代 码 如 下 : 


<style> 
(@import URL("stylel.css"); 
@import URL {"http://www.tkpbecd.com/css/style2.css"}: 
</style> 
引入 外 部 样式 表 的 使 用 方法 与 链接 到 外 部 样式 表 很 相似 ， 都 是 将 样式 定义 保存 为 单独 文 
件 。 两 者 的 本 质 区 别 是 : 引入 方式 在 浏览 器 下 载 HIML 文件 时 将 样式 文件 的 全 部 内 容 复制 到 
@import 关键 字 位 置 ， 以 替换 该 关键 字 ， 而 链接 到 外 部 的 样式 表 方 式 仅 在 HTML 文件 需要 引 
用 CSS 样式 文件 中 的 某 个 样式 时 ， 浏 览 器 才 链 接 该 样式 文件 ， 读 取 需 要 的 内 容 并 进行 替换 。 
3. <style> 标 记 其 入 样式 


在 HIML 文件 的 头 部 <style>…</style> 标 记 对 内 可 以 定义 CSS 样式 。 例 如 ， 对 P 标记 定 
义 段 落 文字 大 小 为 16pt， 代 码 如 下 : 


<head> 

<style type="text/css" > 
<! 一 

P{font-size:16pt:} 
</style> 

-> 


<style> 标 记 的 type 属性 用 于 指明 样式 的 类 别 ， 其 默认 值 为 textcss。<style> 标 记 内 定义 的 
前 后 加 上 <! 一 和 --> 注 释 符 的 作用 是 ， 使 不 支持 CSS 的 浏览 器 忽略 样式 表 的 定义 。<style> 标 记 
内 定义 的 样式 的 作用 范围 是 在 本 HTML 文件 内 。 

4. 内 联 样式 

这 种 方法 是 在 HTML 标记 中 , 将 定义 的 样式 规则 作为 标记 style 属性 的 属性 值 。 样 式 定义 
的 作用 范围 仅 限 于 此 标记 范围 之 内 。 

一 个 内 联 样式 的 应 用 如 下 : 


<table style="font-family:" 宋 体 " ; font-size:12pt; background-color:yellow"> 

以 上 代码 表明 在 此 <table> 标 记 中 的 内 容 将 应 用 syle 属性 内 的 设置 。 

要 在 一 个 HTML 文件 中 使 用 内 联 样式 ， 必 须 在 该 文件 的 头 部 对 整个 文件 进行 单独 的 样式 
表 语言 声明 ， 具 体 如 下 : 


<meta http-equiv="Content-Type" content="text/css"> 


内 联 样式 主要 应 用 于 样式 ， 仅 适用 于 单个 页 面 元 素 的 情况 。 它 将 样式 和 要 展示 的 内 容 混 
在 一 起 ， 自 然 会 失去 一 些 样 式 表 的 优点 ， 所 以 建议 用 户 尽量 少 用 这 种 方式 。 


第 2 章 ”网 页 制作 基础 。49 。 


2.11 _ HTMLS 结构 简介 


HTMLS 是 下 一 代 的 HIML, 本 节 将 主要 介绍 HIMLS 新 增 的 主体 结构 元 素 和 非 主体 结构 
元 素 。 


2.11.1 HTML5 的 主体 结构 元 素 


在 HIML5 中 ,为 了 使 文档 的 结构 更 加 清晰 明确 ,追加 了 几 个 页 眉 、 页 脚 、 内 容 区 块 等 文 
档 结构 相关 联 的 结构 元 素 。 
1. article 元 素 


article 元 素 代表 文档 、 页 面 或 应 用 程序 中 独立 的 、 完 整 的 、 可 以 独自 被 外 部 引用 的 内 容 。 
它 可 以 使 一 篇 博客 或 报刊 中 的 文章 、 一 篇 帖子 、 一 段 用 户 评论 或 独立 的 插件 , 或 其 他 任何 独立 
的 内 容 。 

除了 内 容 部 分 ， 一 个 article 元 素 通常 有 它 自 己 的 标题 (通常 放 在 一 个 header 元 素 里 面 ), 有 
时 还 有 自己 的 脚注 。 下 面 以 博客 为 例 看 一 段 article 元 素 的 代码 示例 : 


<article> 
<header> 
<hl> 编 程 百科 全 书 </hl> 
<p> 发 表 日 期 : <time pubdate="pubdate">2016/11/11</time></p> 
</header> 
<p><b> 编 程 百科 全 书 </b>， 由 数 百 位 程序 员 …(" 编 程 百科 "文章 正文 )</p> 
<footer> 
<p><small> 著 作 权 归 *** 所 有 。</small></p> 
</footer> 
</article> 


运行 以 上 代码 后 的 效果 如 图 2-26 所 示 。 


httpy//192.168.1.77/article x | + 
one le 
编程 百科 全 书 


发 表 日 期 : 2016/11/11 
编程 百科 全 书 ， 由 数 百 位 程序 员 … (“编程 百科 “文章 正文 ) 
著作 权 归 vs+ 所 有 。 


加 到 器 蕊 下载 | 语 面 志 岛 = 


图 2-26 article 元 素 的 实例 运行 效果 
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以 上 实例 是 一 个 讲解 编程 百科 的 博客 文章 ， 在 header 元 素 中 嵌入 了 文章 的 标题 部 分 ， 在 
这 部 分 中 ， 文 章 的 标题 “编程 百科 全 书 ” 被 嵌 在 hl 元 素 中， 文章 的 发 表 日 期 嵌 在 p 元 素 中 ; 
在 标题 下 部 的 p 元 素 中 ， 散 入 了 一 大 段 博客 文章 的 正文 ; 在 结尾 处 的 footer 元 素 中 ， 骨 入 了 文 
章 的 著作 权 ， 作 为 脚注 。 整 个 实例 的 内 容 相对 比较 独立 、 完 整 ， 因 此 ， 对 这 部 分 内 容 使 用 了 
article 元 素 。 

另外 ，article 元 素 是 可 以 嵌 套 使 用 的 ， 内 层 的 内 容 在 原则 上 需要 与 外 层 的 内 容 相 关联 。 例 
如 ,在 一 篇 博客 文章 中 ,针对 该 文章 的 评论 就 可 以 使 用 翌 套 article 元 素 的 方式 ， 用 来 呈现 评论 
的 article 元 素 被 包含 在 表示 整体 内 容 的 article 元 素 里 面 。 

2. section 元 素 


section 元 素 代表 文档 或 应 用 程序 中 一 般 性 的 “ 段 ” 或 者 “ 节 ”。“ 段 ”在 这 里 的 上 下 文 
中 , 指 的 是 对 内 容 按照 主题 的 分 组 ， 通 常 还 附带 标题 ， 例 如 书本 的 章节 、 带 标签 页 的 对 话 框 的 
每 个 标签 页 、 一 篇 论文 的 编 节 号 。 网 站 的 主页 也 可 以 分 为 不 同 的 节 ， 比 如 介绍 、 新 闻 列 表 和 联 
系 信息 。 一 个 section 元 素 通常 由 内 容 及 其 标题 组 成 。 但 stction 元 素 并 非 一 个 普通 的 容器 元 素 ， 
当 一 个 容器 需要 被 直接 定义 样式 或 通过 脚本 定义 行为 时 ， 通 常 使 用 div 而 非 section 元 素 。 

section 元 素 的 作用 是 对 页 面 上 的 内 容 进 行 分 块 ， 或 者 对 文章 进行 分 段 ， 但 是 应 注意 不 能 
与 article 混淆 ， 因 为 article 有 其 完整 、 独 立 的 内 容 。 

下 面 将 介绍 article 元 素 与 section 元 素 结合 使 用 的 两 个 实例 ， 帮 助 用 户 更 好 地 理解 article 

元 素 与 section 元 素 的 区 别 。 

实例 1 一 一 带 有 section 元 素 的 article 元 素 实例 ， 代 码 如 下 : 


<article> 
<hl> 铁 海棠 <hl> 
<p><b> 铁 海棠 </b>， 多 肉 植物 ……</p> 
<section> 
<h2> 红 花 铁 海棠 </h2> 
<p> 学 名 : Euphorbia milii var.splendens (Bojer ex Hook.) Ursch & Leandri Accepted…</p> 
</section> 
<section> 
<h2> 浅 黄 铁 海棠 </h2> 
<p> 学 名 : Euphorbiamiliif lutea Leandri…</p> 
</article> 
<article> 
<hl> 虹 之 玉 </hl> 
<p> 虹 之 玉 ， 景 天 科 景 天 属 多 肉 植物 …</p> 
</section> 
</article> 


运行 以 上 代码 后 ， 效 果 如 图 2-27 所 示 。 代 码 中 的 内 容 首先 是 一 段 独立 、 完 整 的 内 容 ， 因 
此 使 用 article 元 素 。 该 内 容 是 一 篇 关于 铁 海棠 的 文章 ， 该 文章 分 为 几 段 ， 每 一 段 都 有 独立 的 标 
题 ， 因 此 使 用 两 个 section 元 素 。 这 里 需要 注释 的 是 ， 对 文章 的 分 段 工作 也 是 使 用 section 元 素 
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完成 的 。 
实例 2 一 一 包含 article 元 素 的 section 元 素 实 例 ， 代 码 如 下 : 
<section> 
<hl> 常 春 膝 </h1> 
<article > 
<h2> 化 学 成 分 </h2> 
<p> 茎 含 缀 质 (12.019%9)、 树 脂 。 叶 含 常春 茧 武 、 肌 醇 、 胡 萝卜 素 、 糖 类 ， 还 含 缀 质 29.4%…</p> 
</article> 
<article > 
<h2> 药 理 作用 </h2> 
<p> 同 属 植物 苏联 产 常春 茧 有 镇 静 作 用 。 另 一 种 常春 藤 则 含 皂 碱 体 , 对 真菌 生长 有 抑制 作用 …</p> 
</article> 
<article> 
<h2> 植 物 文化 </h2> 
<p> 常 春 蕨 - 结合 的 爱 ， 忠 实 ， 友 谊 ， 情 感 .…</p> 
</article> 
</section> 


运行 以 上 代码 后 ， 效 果 如 图 2-28 所 示 。 该 代码 比 实例 1 复杂 了 一 些 ， 首 先 ， 它 是 一 篇 文 
章 中 的 一 段 ， 因 此 最 初 没有 使 用 article 元 素 。 但 是 在 这 一 段 中 有 几 块 独立 的 内 容 ， 因 此 ， 嵌 入 
了 几 个 独立 的 article 元 素 。 


J | 
铁 海 党 常春 腑 1 
铁 滑 党 ,多 向 梢 物 …~ 化 学 成 分 
红 花 铁 海棠 六 千秋 质 (12.01%) 、 树 疡 。 叶 全 全 春 了 式 、 肌 到、 胡 槛 上 于 、 轴 类 ， 还 计 料 质 29.4y， 
学 有 | Buebharbis ailii yar, solendens (Pojer ex Fock) Drech & Laakel Aecepted™ 药理 作用 
浅黄 铁 海 党 同属 植物 莉 联 产 偶 春 苏 有 久 圳 作用。 另 一 种 仙 夺 大 则 夺 卸 碱 体 ， 对 真 面 生长 有 抑制 作用 … 
学 有 |，Bupbprbiamilii 人 ates lear” 植物 文化 
虹 之 玉 市 而- 结语 的 要 ， 忠 实 ， 龙 这， 情感- 
姬 之 玉 ， 且 天 料 县 天 四 多肉 情 物 … 
TT 可 
图 2-27 带 有 section 元 素 的 article 元 素 实例 图 2-28 包含 article 元 素 的 section 元 素 实例 


注意 : 

在 HTMLS5 中 ，article 元 素 可 以 看 成 一 种 特殊 种 类 的 section 元 素 ， 它 比 section 元 素 更 
强调 独立 性 ， 即 section 元 素 强调 分 段 或 分 块 ， 而 article 元 素 强 调 独立 性 。 总 结 来 说 ， 如 果 
一 块 内 容 相 对 比较 独立 、 完 整 的 时 候 ， 应 使 用 article 元 素 ， 但 是 如 果 用 户 想 将 一 块 内 容 分 
成 几 段 的 时 候 ， 应 该 使 用 section 元 素 。 另 外 ， 需 要 注意 的 是 ， 在 HIMLS 中 ，div 元 素 编 
程 了 一 种 容器 ， 当 使 用 CSS 样式 的 时 候 ， 可 以 对 这 个 容器 进行 一 个 总 体 CSS 样式 的 套用 。 


3. nav 元 素 


nav 元 素 用 来 构建 导航 。 导 航 定义 为 一 个 页 面 中 (例如 ， 一 篇 文章 顶端 的 一 个 目录 ， 它 
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可 以 链接 到 同一 页 面 的 锚 点 ) 或 一 个 站 点 内 的 链接 。 但 是 ， 并 不 是 链接 的 每 一 个 集合 都 是 一 


个 nav， 只 需要 将 主要 的 、 基 本 的 链接 组 放 进 nav 元 素 即 可 。 例 如 ， 在 页 脚 9 


通常 会 有 一 组 
F 这些 footer 元 素 就 足够 放置 了 。 一 个 


链接 ， 包 括 服务 条 款 、 


版 权 声明 、 联 系 方式 等 ， 对 了 


页 面 中 可 以 拥有 多 个 nav 元 素 ， 作 为 页 面 整体 或 不 同 部 分 的 导航 。 


仍旧 
用 下 


nav 元 素 的 内 容 可 


链接 的 一 个 列表 ， 标 记 为 一 个 无 序 的 列表 ， 或 者 是 一 个 有 序 的 
列表 , 这 里 需要 注意 的 是 nav 元 素 是 一 个 包装 器 , 它 不 会 奉 代 ol 或 由 元 素 , 但 是 会 包 昌 


昌 


已 。 


通过 这 种 方式 , 不 理解 该 元 素 的 浏览 器 将 会 看 到 列表 元 素 和 列表 项 , 并 且 它们 的 行为 正常 。 


下 面 一 段 代码 介绍 nav 实例 的 使 用 。 在 这 个 实例 中 ， 一 个 页 面 由 几 部 分 组 成 ， 每 个 部 


b 


分 者 


<body> 
<hl> 虹 之 玉 </hl> 
<nav> 
<u> 
<li><a hre 伍 "/"> 形 态 特 征 </a></li> 
<li><a href="/mr"> 生 长 习性 </a></li> 
</lnl> 
</nav> 
<article> 
<header> 
<hl> 栽 培 技术 <hl> 
<nav> 
<ul> 
<li><a hre 人 ="#g1"> 繁 殖 方法 </a></li> 
<li><a hre 人 =" 本 f > 管理 养护 </a></li> 
A 
</ul> 
</nav> 
</header> 
<section id="rum"> 
<h1> 参 考 资料 -《 园 林 》 杂 志 </h1> 
<p> 竞 宝 峰 . 《园林 》: 八 千代 与 虹 之 玉 : 
</section> 
<section id="kf'> 
<h1> 参 考 资料 -《 中 学 生物 学 》</h1> 
<p>《 中 学 生物 学 》 编 写 组 . 《中 学 生物 学 》: 
</section> 
eS 
<footer> 
<p> 
<a href"?edut"> 编 辑 </a> 
<a href'?delete"> 删 除 </a> 


g 带 有 链接 ， 但 只 将 最 主要 的 链接 放 入 nav 元 素 中 。 


《园林 》 杂 志 社 </p> 


虹 之 玉 </p> 
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<a href'?rename"> 重 命名 </a> 
<p> 
</footer> 
</article> 
<footer> 
<p><small> 版 权 所 有 ,百科 网 络 </small></p> 
</footer> 
</body> 
运行 代码 ， 效 果 如 图 2-29 所 示 。 在 代码 中 ， 第 一 个 nav 元 素 用 于 页 面 的 导航 ， 将 页 面 跳 
转 到 其 他 页 面 上 ( 跳 转 到 网 站 主页 或 开发 文档 目录 页 面 ); 第 二 个 nav 元 素 放置 在 article 元 素 中 ， 
用 作 这 篇 文章 中 组 成 部 分 的 页 内 导航 。 


J@ wp sn roe st 
局 加 避 19246841771navasp 而 吝 |-| 面 60ofe a 


:如 加 -az- 
参考 资料 -《 园 林 》 杂 志 


如 室 族 。《 国 必 》， 作 千 人 与 刀 之 王 ，《 回 性》 杂志 入 
参考 资料 -《 中 学 生物 学 》 


《中 学 生物 学 》 扩 写 组 ，《 中 学 生物 学 》, 虹 之 于 


> 
s,m ttt 


i 生生 尝 》 Ab 
Ee 


图 2-29 nav 元 素 实例 


注意 : 
在 HTMLS5 中 不 要 用 menu 元 素 代 替 nav 元 素 , 因为 menu 元素 是 用 在 一 系列 发 出 命令 
的 菜单 上 的 ， 是 一 种 交互 性 的 元 素 ， 或 者 更 确切 地 说 是 使 用 在 Web 应 用 程序 中 的 。 


4. aside 元 素 


aside 元 素 表 示 由 与 aside 元 素 周围 的 内 容 无 关 的 内 容 所 组 成 的 一 个 页 面 的 一 节 , 也 可 以 认 
为 该 内 容 与 aside 周围 的 内 容 是 分 开 独 立 的 ， 这 样 的 节 往 往 在 印刷 排版 中 用 边栏 表示 。 该 元 素 
可 以 用 于 摘录 引用 或 边栏 之 类 的 排版 效果 ， 可 用 于 广告 、 一 组 导航 元 素 , 或 者 用 于 认为 应 该 与 
页 面 的 主 内 容 区 分 开 来 的 其 他 内 容 。 

aside 元 素 主要 有 以 下 两 种 使 用 方法 。 

方法 1: 被 包含 在 aside 元 素 中 ， 作 为 主要 内 容 的 附属 信息 部 分 ， 其 中 的 内 容 可 以 是 与 
当前 文章 有 关 的 信息 、 名 词 解释 等 。 下 面 是 一 个 在 文章 内 部 的 aside 元 素 实例 。 


3 
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<body> 
<header> 
<h1> 观 花 植 物 </h1> 
</header> 
<article> 
<h1><strong> 概 述 </strong></h1> 
<p>…guan hua zhi wi 观 花 植物 …</p> 
<aside> 
<! 一 因为 这 个 aside 元 素 被 放置 在 一 个 article 元 素 内 部 ， 所 以 分 析 器 将 这 个 aside 元 素 的 内 
容 理 解 成 是 和 article 元 素 的 内 容 相关 联 的 。--> 
<hl> 注 释 </h1> 
<dl> 
<dP 词 条 标签 ， 植 物 </df> 
<dd> 以 观 花 为 主 的 植物 。 其 花色 艳丽 ， 花 杂 硕 大 ， 花 形 奇异 ， 并 具 香 气 。</dd> 
<dl> 
<dP 注 释 </de> 
<dd> 以 观 花 为 主 的 植物 </dd> 
</d> 
</aside> 
</article> 
</body> 


运行 以 上 代码 ， 效 果 如 图 2-30 所 示 。 在 实例 代码 中 ， 网 页 的 标题 放 在 header 元 素 中 ， 在 
header 元 素 的 后 面 将 所 有 关于 文章 的 部 分 放 在 一 个 article 元 素 中 , 将 文章 的 正文 部 分 放 在 了 一 
个 p 元 素 中 , 但 是 该 文章 中 还 有 一 个 名 词 解释 的 附属 部 分 ,用 来 解释 该 文章 中 的 一 些 名 词 。 因 
此 ， 在 p 元 素 的 下 部 又 放置 了 一 个 aside 元 素 ， 用 来 存放 名 词 解释 部 分 的 内 容 。 

方法 2: 在 article 元 素 之 外 使 用 ， 可 以 作为 页 面 或 站 点 全 局 的 附属 信息 部 分 。 最 典型 
的 形式 是 侧 边 栏 ， 其 中 的 内 容 可 以 是 文章 列表 或 广告 单元 等 。 下 面 是 一 个 侧 边栏 的 友情 链 
接 的 实例 。 

<aside> 
<nav> 
<h2> 搜 索引 擎 列表 </h2> 
<u> 
<li><a hre 伍 "http=baidu.com"> 百 度 搜 索 </a></li> 
<li><a hre 仁 "http=google.com"> 谷 歌 搜 索 </a></li> 
<li><a hre 仁 "http=http://www.sogou.com/"> 搜 狗 搜索 引擎 </a></li> 
</ul> 
</nav> 
</aside> 


运行 以 上 代码 ， 效 果 如 图 2-31 所 示 。 
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| 夯 hapy/192.168177/aside x | + 


| 加 多 家 田 | 加 人 在 | 图 coogle QI So| 
观 花 植物 i 
概述 E> htpy/ig21681771asi x| +| | 
-en hi 由 1 矶 观 袖 入 移 一 加 和 让 田 | 四 "| 图 Google Q| Yr 
注释 i 搜索 引擎 列表 
词 条 标签 ， 杆 物 。 百度 搜索 
以 观 花 为 主 的 植物 。 其 花色 艳丽 ， 花 休 硕 大 ， 巷 形 奇 异 ， 并 具 。 合 
让 
以 现 花 为 主 的 村 物 J 
ET 加 加 器 此 下 载 | 四 从 路 局 马 * 
图 2-30 在 文章 内 部 的 aside 元 素 图 2-31 用 aside 元 素 实现 的 侧 边栏 


2.11.2 HTML5 的 非 主体 结构 元 素 


除了 上 面 介绍 的 儿 个 主要 的 结构 元 素 以 外 , HTMLS 内 还 增加 了 一 些 表示 逻辑 结构 或 附加 
信息 的 非 主体 结构 元 素 。 下 面 将 分 别 进行 介绍 。 


1. header 元 素 


header 元 素 是 一 种 具有 引导 和 导航 作用 的 结构 元 素 , 通常 用 来 放置 整个 页 面 或 页 面 内 的 一 
个 内 容 区 块 的 标题 ， 但 也 可 以 包含 其 内 容 ， 例 如 搜索 表单 或 Logo 图 片 。 
整个 页 面 的 标题 应 放 在 页 面 的 开头 ， 用 户 可 以 使 用 以 下 形式 编写 页 面 的 标题 : 


<header><h1> 页 面 标题 <hl></header> 


这 里 需要 强调 的 是 ， 一 个 网 页 内 并 未 限制 header 元 素 的 个 数 ， 可 以 拥有 多 个 ， 也 可 以 为 
每 个 内 容 区 块 加 一 个 header 元 素 ， 代 码 如 下 : 


<header> 
<h1> 页 面 标题 </h1> 
</header> 
<article> 
<header> 
<hl> 文 章 标题 <hl> 
</header> 
<p> 文 章 正文 <p> 
</article> 


在 HTML5 中 ， 一 个 header 元 素 通常 包括 至 少 一 个 heading 元 素 (h1~~h6)， 也 可 以 包括 
hgroup、table、form、nav 元 素 。 


2. hgroup 元 素 
hgroup 元 素 是 将 标题 及 其 子 标题 进行 分 组 的 元 素 。 hgroup 元 素 通常 会 将 hl 一 h6 元 素 进行 
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分 组 ,如 一 个 内 容 区 块 的 标题 及 其 子 标题 算 一 组 。 如 果 文章 只 有 一 个 主 标题 ,是 不 需要 hgroup 
元 素 的 ， 如 下 面 的 代码 所 示 : 


<article> 
<header> 
<h1> 文 章 标题 </hl> 
<p><time datetime="2020-12-12">2020 年 12 月 12 日 <p> 
</header> 
<p> 文 章 正文 <p> 
</article> 


但 是 ， 如 果 文 章 有 主 标题 ， 主 标题 下 有 子 标题 ， 就 需要 使 用 hgroup 元 素 了 ， 如 下 面 的 代 
码 所 示 : 


<article> 
<header> 
<hgroup> 
<hl> 文 章 主 标题 <hl> 
</hgroup> 
<p><time datetime="2020-12-12">2020 年 12 月 12 日 <p> 
</header> 
<p> 文 章 正文 </p> 
</article> 


3. footer 元 素 


footer 元 素 可 以 作为 其 上 层 父 级 内 容 区 块 或 是 一 个 根 区 块 的 脚注 。footer 元 素 通常 包括 其 
相关 区 块 的 脚注 信息 ， 例 如 作者 、 相 关 阅 读 链接 及 版 权 信 息 等 。 
在 HIML5 之 前 ， 使 用 以 下 方式 编写 页 脚 : 


<div id="footer"> 
<u> 
< 这 版 权 信 息 </li> 
<1i> 站 点 地 图 </i> 
<I 记 联系 方式 </li> 
<ul> 
</div> 


在 HIMLS 之 后 ， 这 种 方式 不 再 使 用 ， 而 是 使 用 更 加 语义 化 的 footer 元 素来 蔡 代 ， 代 
码 如 下 : 


<footer> 
<ul> 
<li> 版 权 信息 <Ai> 
<1P> 站 点 地 图 <4i> 
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<li> 联 系 方式 <> 
</ul> 
</footer> 


与 header 元 素 一 样 ， 一 个 页 面 中 也 没有 对 footer 元 素 限制 个 数 。 同 时 ， 
素 或 section 元 素 添加 footer， 如 下 面 的 两 个 实例 所 示 。 
在 article 元 素 中 添加 footer 元 素 的 实例 : 


<article> 
文章 内 容 
<footer> 
文章 脚注 
</footer> 
</article> 


在 section 元 素 中 添加 footer 元 素 的 实例 : 


<section> 
分 段 内 容 
<footer> 
分 段 内 容 的 脚注 
</footer> 
</section> 


4. address 元 素 


可 以 为 article 元 


address 元 素 用 于 当前 的 article 或 文档 的 作者 的 详细 联系 方式 ， 但 不 是 用 于 邮政 地 址 的 一 
个 通用 性 元 素 ， 联 络 方式 可 以 是 e-mail 地 址 、 邮 政 地 址 或 者 任何 其 他 形式 。 例 如 ,在 下 面 的 代 


码 中 ， 展 示 了 一 些 博客 中 某 篇 文章 评论 者 的 名 字 及 其 在 博客 中 的 网 址 链接 。 


<address> 
<a href=http://blog.sina.com.cn/miaofal78>178</a> 
</address> 


2.12 习题 


2.12.1 填空 题 


1. HTML 网 页 文件 的 标记 是 ， 网 页 文件 的 主体 标记 是 
记 页 面 标题 的 标记 是 
2. 创建 一 个 HTML 文档 的 开始 标记 符 是 ， 结 束 标记 符 是 


3. 实现 网 页 交互 性 的 核心 技术 是 


， 标 
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4. 为 图 片 添加 简要 说 明文 字 的 属性 是 。 
5. 表格 单元 格 垂直 所 用 的 属性 是 ， 单 元 格 横向 合并 所 用 的 属性 是 


6. 请 写 出 在 HIML 网 页 中 设 定 表格 边框 厚度 的 属性 ， 设 定 表格 单元 格 之 
间 宽 度 的 属性 ， 设 定 表 格 内 容 与 单元 格 线 之 间距 离 的 属性 


2.12.2 选择 题 


1. 下 面 不 是 文本 标签 属性 的 是 ( 。 )。 


A. size B. align C. color D. face 
2. 下 面 电 子 邮件 链接 正确 的 是 (。”)。 

A. xxx.com.cn B. xxx@.net C. xxx@com D. xxx(@Oxxx.com 
3. 下 列 选项 中 可 以 在 新 窗口 打开 网 页 文档 的 是 (。”)。 

A. _self B._blank C._top D._parent 
4. 常用 的 网 页 图 像 格 式 有 ( ”)。 

A.gif 和 tf B.tif 和 jpg C. gf 和 jpg D.tif 和 png 


2.12.3 ”问答 题 


1. 什么 是 URL? 请 简 述 URL 的 基本 格式 。 
2. 制作 HTML 网 页 需要 哪些 软件 ? 
3. 简 述 如 何在 HTML 网 页 中 插入 图 片 并 设置 图 片 格式 。 


2.12.4 操作 题 


1. 使 用 <font> 标 记 设置 页 面 中 的 文本 字体 为 “宋体 ”， 字 号 为 12pt， 颜 色 为 “绿色 ”， 
并 设置 文本 从 页 面 的 右 侧 向 左 侧 滚 动 。 

2. 使 用 HTMLS5 新 增 的 主题 结构 元 素 与 新 增 的 非 主体 结构 元 素 ， 制 作 一 个 网 页 ， 并 在 
页 面 中 实现 一 个 导航 功能 ， 左 侧 为 公告 栏 ， 底 部 为 版 权 声 明 。 
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教学 目标 
通过 对 本 章 的 学 习 ， 读 者 应 掌握 VBScript 语言 中 常量 、 变 量 与 数组 等 基本 概念 ， 并 能 
够 熟练 使 用 流程 控制 语句 编制 一 些小 程序 ， 完 成 一 些 简单 的 应 用 。 


ee VBScript 语言 概述 

e VBScript 中 的 变量 

e@ VBScript 中 的 运算 符 

@ 条 件 语句 

e 赋值 语句 

本 章 将 介绍 ASP 脚本 编程 语言 中 的 一 种 一 VBScript。 VBScript 是 专业 编程 语言 Visual 
Basic 的 子 集 。 使 用 VBScript 可 以 实现 很 多 动态 交互 功能 ， 诸 如 在 将 数据 发 送 到 服务 器 之 
前 先进 行 处 理 和 校 验 , 创建 新 的 Web 内 容 ， 甚 至 编写 完全 在 客户 端 运行 的 应 用 程序 ， 如 计 
算 器 和 游戏 使 用 程序 、 扩 展 客户 端的 功能 等 。 


3.1 VBScript 语言 概述 


VBScript 是 ASP 默认 的 脚本 编程 语言 。 为 Web 页 面 增加 VBScript 脚本 ， 可 以 实现 一 
些 既 实用 又 方便 的 操作 。 下 面 将 介绍 VBScript 语言 的 特点 以 及 在 HTML 与 ASP 中 的 应 用 ， 
帮助 用 户 初步 了 解 VBScript 语言 的 概念 。 


3.1.1 认识 VBScript 语言 


VBScript 可 以 用 来 完成 重复 性 的 Windows 操作 系统 任务 。 在 Windows 操作 系统 中 
VBScript 可 以 在 Windows Script Host 的 范围 内 运行 。Windows 操作 系统 可 以 自动 辨认 与 执 
行 *.VBS 和 *.WSF 文件 格式 。 此 外 ，Intemet Explorer 可 以 执行 HTA 和 CHM 文件 格式 。 
VBScript 语言 有 以 下 几 个 特点 。 

e 以 对 象 为 基础 VBScript 有 别 于 Visual Basic 或 Visual C++ 程序 语言 的 对 象 导向 

(Object-Oriented)， 它 以 对 象 为 基础 (Object-Based)。 对 象 基础 语言 不 仅 支持 对 象 的 
属性 与 成 员 函 数 ， 而 且 可 以 用 来 编写 动作 并 反映 出 对 象 相关 的 时 间 。 
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e@ 易学 易 用 : 用 户 若 了 解 Visual Basic 或 Visual Basic for Applications， 就 会 很 快 熟悉 
VBScript。 即 使 没有 学 过 Visual Basic， 只 要 学 会 VBScript， 就 可 以 使 用 所 有 Visual 


Basic 语言 进行 程序 设计 。 


e 其 他 应 用 程序 和 浏览 器 中 的 VBScript: 开发 人 员 在 产品 中 可 以 免费 使 用 VBScript 
源 程 序 。 微 软 公司 为 32 位 Windows API、16 位 Windows API 和 Macintosh 提供 
VBScript 的 二 进 制 实现 程序 。VBScript 与 Web 浏览 器 集成 在 一 起 ， 可 以 在 其 他 应 


用 程序 中 作为 Web 通用 脚本 语言 使 用 。 


3.1.2 ”VBScript 代码 编写 格式 


在 网 页 设计 过 程 中 ， 使 用 VBScript 语言 一 般 是 在 HIML 文件 中 嵌入 VBScript 脚本 ， 


从 而 扩展 HTML 的 功能 ， 获 得 单 赁 HIML 语言 无 法 实现 的 网 页 效果 。 


script 元 素 用 于 将 VBScript 代码 添加 至 HIML 页 面 中 ， 例 如 以 下 代码 : 


<html> 
<head> 
<title>Hello from VBScript! </title> 
<script Language="VBScript" RunAt="Server"> 
sub show0 
Response. Write("Hello from VBScript! ") 

End sub 
</script> 

</head> 

<body> 

<% 


</html> 


以 上 程序 中 VBScript 代码 的 开始 和 结束 部 分 都 有 <scripf> 标 记 。 其 中 ，Language 属性 
用 于 指定 程序 所 使 用 的 脚本 语言 (由 于 浏览 器 能 够 使 用 多 种 脚本 语言 , 因此 必须 在 此 指定 使 
用 的 脚本 语言 )。 将 代码 保存 后 (例如 保存 为 testl.asp)， 然 后 将 其 复制 到 本 书 第 1 章 创建 的 
ASP 网 站 主 目 录 中 并 运行 ， 将 可 以 在 浏览 器 中 显示 如 图 3-1 所 示 的 效果 。 


注意 : 


script 元 素 块 可 以 出 现在 HTML 页 面 代码 的 任何 地 方 (<body> 或 <head> 部 分 )。 但 是 设 
计 者 最 好 将 所 有 的 一 般 目标 脚本 代码 放 在 <head> 中 ， 以 便 使 所 有 脚本 代码 集中 放置 。 这 样 


可 以 确保 在 <body> 部 分 调用 代码 之 前 所 有 脚本 代码 都 被 读 取 并 解码 。 
以 上 规则 的 一 个 例外 情况 是 , 在 窗口 中 提供 内 部 代码 以 响应 窗口 中 


Ph 对 象 的 3 


有 件 。 例 如: 
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<html> 
<head> 
<title>Hello from VBScript! </title> 
</head> 
<body> 
<form name="forml1"> 
<input type="Button" name="Buttonl" value=" 单 击 "> 
<script for="Buttonl" event="onClick" Language="VBScript"> 
MsgBox" 已 单 击 按钮 ! " 
</script> 
</form> 
</body> 
</html> 
将 以 上 代码 保存 (文件 名 为 test2.asp) 并 运行 后 ,用户 在 打开 的 浏览 器 窗口 中 单 击 “ 确 定 ” 
按钮 后 ， 将 弹出 如 图 3-2 所 示 的 提示 对 话 框 。 


I 
KA yl 


Hello from YBScript! 


了 加速 器 邮 下 载 | 本 窗 中 局 区 


图 3-1 testl.asp 运行 结果 图 3-2 test2.asp 运行 结果 


注意 : 
大 部 分 脚本 代码 在 sub 或 function 过 程 (本 书后 面 的 章节 将 介绍 ) 中 , 仅 在 其 他 代码 要 调 
用 它 时 执行 。 但 是 ， 用 户 也 可 以 将 VBScript 代码 放 在 过 程 以 外 的 script 中 。 


3.1.3 在 ASP 中 使 用 VBScript 


ASP 是 一 套 服务 器 端的 对 象 模型 ， 其 本 身 并 不 是 一 种 脚本 语言 ， 但 它 却 为 嵌入 HTML 
页 面 中 的 脚本 语言 提供 了 运行 环境 。 在 ASP 程序 中 常用 的 脚本 语言 有 VBScript 和 JScript 
等 语言 ， 系 统 默认 的 语言 为 VBScript 语言。 

VBScript 语言 是 ASP 默认 的 主 脚本 语言 ， 它 用 于 处 理 在 分 节 符 “<%” 与 “%>” 内 部 
的 命令 。 本 节 将 介绍 通过 IIS 指定 ASP 脚本 语言 以 及 在 ASP 程序 中 如 何 声明 与 使 用 
VBScript 语言 的 方法 。 
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1. 通过 IIS 指定 ASP 默认 脚本 语言 


在 Windows 系统 中 ， 用 户 可 以 通过 ITS 指定 默认 使 用 的 脚本 语言 ， 只 要 是 <% 和 %> 之 
间 的 代码 ，ASP 在 解释 时 会 认为 它 使 用 的 是 默认 脚本 语言 。 下 面 介绍 在 Windows 7 系统 中 
指定 ASP 默认 脚本 语言 的 方法 。 

【 例 3-1】 在 Windows 7 系统 中 ， 通 过 “Intemet 信息 服务 (IS) 管 理 器 ”窗口 设 定 ASP 
的 默认 脚本 语言 为 VBScript。 

(1) 选择 “开始 ”| “运行 ” 命令， 打开“ 运行 ”" 对话 框 ， 输 入 inetmgr 命令 并 按 下 Enter 键 。 

(2) 系统 打开 IIS 的 管理 工具 “Internet 信息 服务 (IIS) 管 理 器 ”窗口 ， 展 开 “ 网 站 ” 节 
点 后 ， 选 中 需要 设置 的 网 站 ， 然 后 在 窗口 中 间 的 列表 框 中 双击 ASP 图 标 ， 如 图 3-3 所 示 。 

(3) 在 显示 的 ASP 选项 区 域 中 展开 “调试 属性 ”节点 ， 然 后 在 “脚本 语言 ”文本 框 中 
输入 VBScript， 然 后 在 窗口 右 侧 的 列表 框 中 单 击 “ 应 用 ”按钮 ， 如 图 3-4 所 示 。 
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图 3-3 “Intemet 信息 服务 (IS) 管 理 器 ”窗口 图 3-4 声明 脚本 语言 


注意 : 
不 同 版 本 的 Windows 操作 系统 配置 IIS 的 具体 步骤 并 不 完全 相同 ， 但 配置 方法 却 大 致 
类 似 ， 用 户 可 以 参考 本 例 所 介绍 的 方法 ， 在 其 他 Windows 操作 系统 中 指定 ASP 脚本 语言 。 


2. 在 ASP 文件 中 进行 脚本 语言 声明 


若 用 户 需要 在 某 一 单个 页 面 指定 使 用 VBScript 脚本 语言 , 可 在 文件 初始 部 分 用 一 条 声 
明 语句 进行 指定 。 需 要 特别 注意 的 是 ， 该 语句 一 定 要 放 在 所 有 语句 之 前 ， 如 下 例 所 示 : 


<%@Language=VBScript %> 
<Html><Head> 


</Html></Head> 


通常 ，VBScript 脚本 是 不 区 分 大 小 写 的 ， 例 如 用 户 可 以 在 ASP 程序 中 使 用 Response 


或 response。 
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3.2 ”VBScript 中 的 变量 


变量 是 任何 编程 语言 的 基础 ， 它 可 以 作为 应 用 程序 中 临时 的 存储 空间 ， 以 实现 对 数据 
的 各 种 操作 。 例 如 ， 用 户 可 以 创建 一 个 名 称 为 UserName 的 变量 来 存储 每 次 用 户 登录 时 的 
账号 。 每 个 变量 在 内 存 中 都 被 分 配 了 一 段 空间 ， 但 是 变量 的 标识 并 不 是 通过 它 的 内 存 地 址 
实现 的 ， 而 是 通过 变量 名 。 在 VBScript 中 ， 只 有 一 个 基本 数据 类 型 ， 即 变量 (Variant)， 而 
且 VBScript 的 变量 也 是 不 区 分 大 小 写 的 。 


3.2.1 简单 变量 的 声明 
声明 变量 有 显 式 声 明和 隐 式 声明 两 种 方式 。 
显 式 声明 要 用 到 Dim 语句 、Public 语句 和 Private 语句 。 例 如 : 


<% Dim strUserName %> 


声明 多 个 变量 时 ， 可 使 用 逗号 分 隔 变量 
隐 式 声明 变量 没有 声明 变量 语句 ， 而 直接 使 用 变量 名 。 VBScript 在 使 用 变量 时 ， 就 会 
自动 创建 该 变量 。 例 如 : 


<% dtmToay =Now0 %> 
当前 日 期 和 时 间 是 <% =dtmToday %> 


3.2.2 ”数组 变量 的 声明 


数组 变量 是 一 类 具有 相同 名 字 但 有 不 同 下 标 值 的 变量 ， 简 称 数组 。 数 组 中 的 每 个 元 素 
都 用 唯一 的 下 标 来 识别 。 例 如 intAge(9) 中 ，intAge 是 数组 名 ，9 是 下 标 。 

数组 变量 的 声明 同 简单 变量 相同 ， 唯 一 的 区 别 是 声明 数组 变量 时 变量 名 后 面 带 有 括 
号 ， 下 例 声 明了 一 个 包含 20 个 元 素 的 一 维 数组 : 

Dim IngSum (19) 


数组 的 下 标 是 从 0 开始 的 ， 数 组 元 素 的 数目 总 是 括号 中 显示 的 数目 加 1， 所 以 上 面 这 
个 数组 变量 实际 上 包含 20 个 元 素 。 下 面 的 代码 可 以 对 上 面 定 义 的 数组 进行 赋值 : 

IngSum (0)=1 

lngSum (1)=2 

IngSum (2)=3 


IngSum (19)=20 
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具有 两 个 或 多 个 下 标的 数组 称 为 二 维 数组 或 多 维 数组 。 声 明 多 维 数组 时 用 逗号 分 隔 括 
号 中 每 个 下 标 ， 如 下 面 的 代码 就 声明 了 一 个 5 行 8 列 的 二 维 数组 : 

Dim intCounters(4,7) 

如 果 事先 不 知道 数组 的 大 小 ， 可 声明 一 个 动态 数组 。 动 态 数 组 可 以 在 运行 脚本 时 根据 
实际 的 需要 ， 使 用 ReDim 来 调整 数组 的 维 数 和 每 一 维 的 大 小 。 例 如 : 

Dim curRevenue 0 


ReDim curRevenue (25) 


ReDim curRevenue (9,11) 


注意 : 

重新 调整 动态 数组 大 小 的 次 数 是 没有 任何 限制 的 ， 但 是 ， 存 储 在 数组 中 的 当前 值 
都 会 全 部 丢失 ，VBScript 重新 将 数组 元 素 的 值 全 部 置 为 空 。 如 果 希 望 改 变数 组 大 小 的 
同时 而 又 不 丢失 数组 中 的 数据 ， 则 要 在 ReDim 语句 中 带 上 Preserve 关键 字 ， 如 <% 
ReDim Preserve curRevenue (9,11) %>。 但 仍 要 注意 的 是 ， 将 数组 的 大 小 调 小 时 ， 仍 将 
会 丢失 被 删除 元 素 的 数据 。 


3.2.3 ”变量 的 赋值 


变量 的 赋值 比较 简单 。 一 般 情况 下 , 变量 在 表达 式 的 左边 , 要 赋 的 值 在 表达 式 的 右边 。 
变量 的 赋值 方式 可 以 采用 以 下 方式 : 
e “=” 号 赋值 。 例 如 给 变量 count 赋值 100， 如 下 : 


count= 100 
e 直接 使 用 函数 返回 值 。 例 如 : 

A=GetValue(b,c) 

e 复制 对 象 的 赋值 。 该 赋值 方式 需要 使 用 Set， 例 如 : 
Set re = Server.CreateObject("ADODB. RecordSet") 


以 上 为 简单 变量 的 赋值 。 用 户 在 为 数组 变量 赋值 时 , 可 以 对 每 一 个 数组 元 素 分 别 赋值 ， 
例如 ， 在 给 3 个 元 素 的 一 维 数组 变量 Amray(2) 赋 值 时 ， 可 以 表示 如 下 : 


Aray(0) ="ID" 
Amay()= "Name" 
Array(2) = "Sex" 


采用 同样 的 方法 可 以 对 其 他 高 维 数组 变量 赋值 。 
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3.2.4 变量 的 命名 约定 


给 变量 起 名 称 时 ， 一 定 要 遵循 VBScript 的 标准 命名 规则 。 变量 命名 必须 遵循 以 下 几 个 
方面 : 

e 第 一 个 字符 必须 是 字母 。 
不 能 包含 句点 。 
长 度 不 能 超过 255 个 字符 。 

e 在 声明 的 作用 域内 必须 唯一 。 

e 名 字 不 能 和 关键 字 同 名 。 

VBScript 不 区 分 变量 名 称 的 大 小 写 。 例 如 ， 将 一 个 变量 命令 为 strUserName 和 将 其 命 
名 为 STRUSERNAME 效果 是 一 样 的 。 另 外 ， 给 变量 命名 时 ， 要 含义 清楚 ， 便 于 记忆 。 建 
议 尽量 按 表 3-1 所 示 的 前 级 来 命名 变量 ， 以 便 通 过 变量 的 名 称 便 可 获知 该 变量 的 子 类 型 。 


表 3-1 用 来 表示 子 类 型 的 名 字 前 组 


el "| 


四 ja [Bwe [om | 
[om juauma [swing ls | 
Daeting) |am |amsan |owe |ow | 


3.2.5 ”变量 的 作用 域 与 存活 期 


变量 的 作用 域 由 声明 它 的 位 置 决定 。 如 果 在 过 程 中 声明 变量 ， 则 只 有 该 过 程 中 的 代码 
可 访问 或 更 改变 量 值 ， 此 时 变量 具有 局 部 作用 域 ， 称 为 过 程 级 变量 。 如 果 在 过 程 之 外 声明 
变量 ， 则 该 变量 可 以 被 脚本 中 所 有 过 程 所 识别 ， 称 为 脚本 级 变量 ， 具 有 脚本 级 作用 域 。 

用 户 在 开发 大 型 ASP 网 站 时 , 程序 代码 量 非常 庞大 , 网 站 开发 过 程 中 不 可 避免 地 会 出 
现 相同 名 字 的 变量 。 此 时 ， 应 使 用 变量 的 作用 域 ， 避 免 发 生变 量 重 名 的 问题 。 例 如 ， 在 
testA.asp 中 的 脚本 命令 返回 值 100 000, 如 图 3-5 所 示 。 虽然 以 下 程序 中 有 两 个 名 称 为 义 的 
变量 ,但 是 在 SetProcedureVariable 过 程 中 定义 的 变量 X 为 过 程 级 变量 , 在 此 过 程 之 外 无 效 。 


<% 

DimX ' 定 义 脚本 级 变量 
X=100000 "初始 化 变量 

"调用 SetProcedureVariable0 过 程 

Call SetProcedureVariable 

Response.Write X "在 网 页 上 显示 义 的 值 


Sub SetProcedureVariableO "定义 SetProcedureVariable0 过 程 
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DimX ' 定 义 过 程 级 变量 
X=200000 

End Sub 

%> 


车 用 户 没有 声明 变量 ， 则 可 能 会 不 小 心 改变 一 个 脚本 级 变量 的 值 。 


将 义 设 置 为 200000 时 ， 脚 本 引擎 认为 该 过 程 是 要 修改 脚本 级 变量 。 


<% 

X=100000 "初始 化 变量 

"调用 SetProcedureVariable 过 程 

Call SetProcedureVariable 

Response.Write X "在 网 页 上 显示 和 的 值 


中 ， 由 于 变量 没有 显 式 声明 ， 以 下 的 脚本 命令 将 返回 200000， 如 图 3-6 所 示 。 当 过 程 调用 


例如 在 testB.asp 


Sub SetProcedureVariable() "定义 SetProcedureVariable 过 程 


X=200000 
End Sub 
%> 


100000 200000 


钨 “ + Ms 纺 “ jx | + 
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9 加 速 器 总 下 载 | 国 曾 吊 局 己 ? ?加 速 占 抱 下 载 | 加 


画 3 %° 


图 3-5 testA.asp 显示 效果 图 3-6 testB.asp 显示 效果 


注意 : 

脚本 级 变量 仅 在 单个 ASP 页 中 可 用 。 要 使 它 在 单个 ASP 页 之 外 
变量 赋予 会 话 Session 或 应 用 程序 Application 作用 域 。 会 话 作 用 域 对 
的 ASP 应 用 程序 中 的 所 有 页 都 是 可 用 的 。 


可 用 ， 就 必须 为 
一 个 用 户 所 请 求 


变量 存在 的 时 间 称 为 存活 期 。 脚 本 级 变量 的 存活 期 从 被 声明 的 那 一 刻 起 ， 直 到 脚本 运 
行 结束 。 对 于 过 程 级 变量 ， 其 存活 期 仅 是 该 过 程 运行 的 时 间 ， 该 过 程 结束 后 ， 变 量 随 之 消 


失 。 在 执行 过 程 时 ， 局 部 变量 是 理想 的 临时 存储 空间 。 可 以 在 不 同 过 程 9 


变量 ， 这 是 因为 每 个 局 部 变量 只 被 声明 它 的 过 程 识 别 。 


3.3 VBScript 中 的 运算 符 


FP 使 用 同名 的 局 部 


运算 符 是 完成 操作 的 一 系列 符号 。VBScript 提供 了 4 种 类 型 的 运算 符 , 即 算术 运算 符 、 
关系 运算 符 、 迪 辑 运 算 符 和 连接 运算 符 。 将 运算 符 和 操作 数 连接 起 来 ， 就 构成 了 表达 式 。 


第 3 章 《VBScript 脚本 语言 *。67。 


3.3.1 算术 运算 符 


算术 运算 符 用 于 执行 简单 的 算术 运算 ， 其 语法 如 下 : 


NumExp = NumExp] Operator NumExp2 


其 中 ，NumExp、NumExpl 和 NumExp2 均 为 数值 表达 式 ，Operator 为 算术 运算 符 。 
VBScript 中 的 算术 运算 符 ， 如 表 3-2 所 示 。 


表 3-2 算术 运算 符 


3.3.2 


运算 运算 符 表达 式 
加 法 十 XHY 
减法 一 X—Y 
乘法 a XY 
浮 点 除法 X/Y 
整数 除法 \ B.A 
指数 Yk 
余数 Mod XModY 
下 号 这 A 
负 号 这 —X 
字符 串 连接 & XS&YY 


关系 运算 符 


关系 运算 符 用 来 比较 两 个 表达 式 的 值 的 大 小 ， 如 大 于 (>)、 小 于 (<)、 大 于 等 于 (>=)、 小 
于 等 于 (<=)、 不 等 于 (< >) 和 等 于 C5)。 关 系 运算 的 结果 是 逻辑 值 True 或 False。 关 系 运算 可 
用 于 数值 间 的 比较 ， 也 可 用 于 字符 串 间 的 比较 。 当 用 于 字符 串 间 的 比较 时 ， 将 按 ASCII 码 
值 的 大 小 由 左 向 右 依次 逐个 字符 进行 比较 ， 直 到 比较 出 结果 为 止 。VBScript 中 的 关系 运算 


符 ， 如 表 3-3 所 示 。 


表 3-3 关系 运算 符 


运算 运算 符 表达 式 
相等 三 X=Y 
不 相等 一 X<>Y 
类 插 > > 
小 于 站 X<Y 
关于 等于 = X>=Y 
小 于 等 于 一 X<=Y 
对 象 相等 Is XIsY 
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3.3.3 ”逻辑 运算 符 


逻辑 运算 通常 也 称 为 布尔 运算 ， 专 门 用 于 逻辑 值 之 间 的 运算 。 逻 辑 运 算 的 各 运算 符 及 
其 含义 ， 如 表 3-4 所 示 。 


表 3-4 ”逻辑 运算 符 
说 了 明 优先 级 
| 3 大 于 1 为 真 ， 取 反 后 为 假 高 
nd | i 刘 由 与 “| G>nando | 两 个 表达 式 的 值 都 为 真 时 才 为 真 
逻辑 或 = 两 个 表达 式 的 值 有 一 个 为 真 即 为 真 


两 个 表达 式 的 值 有 一 个 且 只 有 一 个 
为 真 时 才 为 真 

逻辑 等 于 - E 仅 当 两 个 表达 式 的 值 相 同时 才 为 真 
仅 当 第 一 个 表达 式 的 值 为 真 时 才 为 真 低 


逻辑 异 或 


注意 : 
逻辑 运算 符 连接 两 个 或 多 个 关系 式 ， 组 成 一 个 布尔 表达 式 。 


3.3.4 ”连接 运算 符 


连接 运算 是 将 两 个 字符 表达 式 连 接 起 来 , 生成 一 个 新 的 字符 串 。 连 接 运 算 符 有 + 和 和 && 两 个 。 
使 用 & 运 算 符 时 ， 参 与 连接 的 两 个 表达 式 可 以 不 全 是 字符 串 ， 即 & 运 算 符 能 强制 性 地 
将 两 个 表达 式 的 值 作为 字符 串 连 接 。 例 如 : 


<% 

money=56 

sttTemp=" 应 收 金额 ="&money 
%> 


使 用 + 运算 符 时 ， 操 作 数 必须 是 字符 串 。 例 如 : 


<% 

money="56" 

strTemp=" 应 收 金额 ="+money 
%> 


3.3.5 ”运算 符 的 优先 级 


当 一 个 表达 式 包含 多 个 运算 符 时 ， 执 行 运算 的 符号 有 一 个 固定 的 优先 计算 顺序 : 算术 
运算 符 > 连 接 运算 符 > 关 系 运算 符 > 罗 辑 运 算 符 。 
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对 于 同 优先 级 的 运算 符 ， 以 从 左 到 右 的 顺序 进行 计算 。 在 表达 式 中 ， 可 以 使 用 括号 改 
变 计 算 的 优先 顺序 ， 强 令 表达 式 的 某 些 部 分 优先 运算 。 括 号 内 的 运算 总 是 优先 于 括号 外 的 


二 


注意 : 
算术 运算 符 之 间 的 优先 顺序 是 : 指数 、 一 元 减 、 乘 除 、 取 模 和 加 减 。 逻 辑 运算 符 
之 间 的 优先 顺序 按 表 3-4 所 示 从 上 到 下 逐渐 降低 。 


3.4 VBScript 中 的 数据 类 型 


VBScript 只 有 一 种 数据 类 型 ， 即 Variant 类 型 ， 也 叫 变 体 类 型 。Variant 类 型 可 以 在 不 
同 的 场合 代表 不 同类 型 的 数据 。 例 如 ，Variant 类 型 用 于 数字 时 ， 将 作为 数值 处 理 ， 用 于 字 
符 串 时 ， 将 作为 字符 串 处 理 。 


注意 : 
由 于 Variant 类 型 是 VBScript 中 唯一 的 数据 类 型 ， 因此 这 也 是 VBScript 中 所 有 函 
数 的 返回 值 的 数据 类 型 。 


大 多 数 情况 下 ，Variant 类 型 会 按照 最 适用 于 其 包含 的 数据 的 方式 进行 操作 。 例 如 : 


Variable=2011 VBScript 会 把 Variable 当成 整数 对 待 

Variable= "2011" "VBScript 会 把 Variable 当成 字符 串 对 待 

Variable=#2011-07-13# ”VBScript 会 把 Variable 当成 日 期 对 待 

VBScript 还 会 根据 代码 的 上 下 文 自动 转换 数据 的 子 类 型 。 例 如 : Variable_1="2012"， 
这 里 Variable 1 被 看 作 一 个 字符 串 来 对 待 ， 而 如 果 下 面 有 一 句 Variable 2= Variable 1+3， 
这 时 VBScript 就 会 自动 将 Variable_1 转换 为 整数 变量 ， 然 后 参与 运算 。 

根据 Variant 类 型 所 能 够 包含 的 数值 信息 类 型 的 不 同 ， 可 以 将 这 种 特殊 的 数据 类 型 细 
分 为 多 种 子 类 型 ， 各 子 类 型 名 称 及 其 说 明 如 表 3-5 所 示 。 


表 3-5 Variant 类 型 的 子 类 型 
子 类 型 说 明 


声明 一 个 变量 后 ， 如 果 还 没有 初始 化 ， 则 该 变量 的 值 是 Empty。 

可 以 用 IsEmpty0 函 数 测试 变量 是 否 已 初始 化 。 当 变量 为 Empty 值 时 , 可 以 在 表达 式 
Empty 中 使 用 ， 至 于 是 将 其 作为 0 还 是 作为 零 长 度 的 字符 串 处 理 ， 要 根据 具体 的 表达 式 来 

定 。 只 要 将 任何 值 (包括 0、 零 长 度 字符 串 或 NulD) 赋 予 变量 ，Empty 值 就 会 消失 ; 而 

将 关键 字 Empty 赋予 变量 ， 就 可 以 将 变量 恢复 为 Empty 值 
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( 续 表 ) 
子 类 型 说 明 

空 值 ， 表 示 不 包含 任何 有 效 数 据 。 
Null 常用 于 数据 库 应 用 程序 , 表示 未 知 数 据 或 丢失 的 数据 。 如 果 表达 式 中 包含 Null， 

Null 那么 计算 结果 总 是 Null。 将 Null、 值 为 Null 的 变量 或 计算 结果 为 Null 的 表达 式 作 
为 参数 传 给 大 多 数 函 数 , 将 使 函数 返回 Null。 可 以 使 用 ISNull0 函 数 测试 表达 式 是 否 
不 含 任何 有 效 的 数据 

Boolean 包含 逻辑 值 ， 只 有 Tue 或 False 这 两 个 值 

Byte 表示 0~255 之 间 的 整数 

Integer 表示 - 32 768 一 32 767 之 间 的 整数 

ne 表示 - 922 337 203 685 477.580 8 一 922 337 203 685 477.580 7 之 间 的 数 。Currency 是 

-个 精确 的 定点 类 型 ， 适 用 于 货币 运算 
Long 表示 - 2 147 483 648 一 2 147 483 647 之 间 的 整数 
， 单 精度 浮 点 数 ， 负 数 范围 为 -3.402 823E38 一 -1.401 298E-45， 正 数 范围 为 

eb 1.401 298E-45~3.402 823E38 
双 精 度 浮 点 数 ， 负 数 范围 为 -1.797 693 134 862 32E308~4.940 656 454 841 247E-324， 

a 正 数 范围 为 4.940 656 454 841 247E-324 一 1.797 693 134 862 32E308 
表示 日 期 数值 ， 日 期 范围 从 公元 100 年 1 月 1 日 到 公元 9999 年 12 月 31 日 。 时 间 值 从 
00:00:00 到 23:59:59。 

Peerime) | 。 在 代码 中 使 用 日 期 和 时 间 值 时 ， 必 须 用 一 对 # 号 将 其 括 起 来 ， 如 43-G2011 4:20:16 PM 
等 。AM 表示 上 午 ，PM 表示 下 午 

String 表示 字符 串 数值 ， 字 符 串 的 最 大 长 度 可 为 20 亿 个 字符 

Object 引用 程序 所 能 识别 的 任何 对 象 

Error 包含 错误 号 

注意 : 


在 使 用 Variant 类 型 的 数据 子 类 型 时 ， 可 以 使 用 转换 函数 来 转换 数据 的 子 类 型 ， 
也 可 以 使 用 VarType() 函 数 返 回 数据 的 Variant 子 类 型 。 关 于 这 些 函 数 的 详细 信息 ， 可 
查看 3.10 节 “VBScript 函数 ”中 的 相关 内 容 。 


3.5 VBScript 中 常量 的 定义 


常量 就 是 拥有 固定 数值 的 名 称 ， 常 量 可 以 代表 字符 串 、 数 字 等 常数 。 常 量 一 经 声明 ， 
在 程序 执行 期 间 ， 其 值 不 会 发 生 改变 。 

声明 常量 后 可 以 在 程序 的 任何 部 分 使 用 该 常量 代表 特定 的 数值 ， 从 而 方便 程序 的 编 
写 。 例 如， 在 计算 程序 中 常用 PI 表示 zx 的 近似 值 3.141 592 6， 这 样 既 不 容易 出 错 ， 程 序 也 
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更 加 简洁 明了 ， 在 程序 的 其 他 地 方 就 可 以 使 用 PI 表示 7 的 近似 值 了 。 例 如 : 


<% 

Const PI=3.1415926 哺 定 PI 为 常量 ， 其 值 为 3.141 592 6 
S=PI*R“2 求 半径 为 R 的 圆 的 面积 ， 并 将 值 赋 给 S 
%> 

注意 : 


如 果 要 在 多 个 ASP 文件 中 使 用 一 些 相同 的 常量 , 则 可 以 把 常量 定义 放 在 单独 的 文 
件 中 ， 然 后 在 所 有 使 用 这 些 常 量 的 ASP 文件 中 包含 这 些 定义 即 可 。 


3.6 赋值 语句 


与 其 他 编程 语言 一 样 ，VBScript 中 也 包含 一 些 基本 的 语句 。 这 些 语句 主要 分 为 赋值 语 
名、 条 件 语句 与 循环 语 3 类 。 其 中 条 件 语 句 与 循环 语句 能 够 在 程序 中 控制 程序 的 流程 ， 而 
赋值 语句 的 作用 是 将 一 个 数据 赋 给 一 个 变量 。 在 VBScript 中 ,赋值 语句 就 是 一 条 赋值 表达 
式 ， 其 一 般 形式 为 : 


变量 = 表达 式 

其 中 ， 变 量 可 以 是 数值 变量 ， 也 可 以 是 字符 串 变 量 。 同 样 ， 表 达 式 可 以 是 数值 型 表达 
式 或 字符 串 表 达 式 。 变 量 的 类 型 应 与 表达 式 的 类 型 一 致 。 例 如 以 下 代码 声明 一 个 变量 ， 并 
给 变量 count 赋值 10。 

Dim count "定义 count 变量 

count= 10 将 count 变量 赋值 10 

注意 : 


赋值 语句 是 VBScript 中 最 简单 、 使 用 最 多 的 语句 。 在 VBScript 中 ， 多 个 变量 赋 
相同 的 值 时 ， 不 能 写 为 “变量 = 变量 =…= 表 达 式 ”的 形式 ， 应 该 逐个 赋值 。VBScript 
中 声明 变量 时 不 可 以 赋值 ， 变 量 的 声明 和 赋值 是 分 开 的 ， 不 能 同时 进行 。 


例如 , 以 下 代码 (testC.asp) 是 一 个 简单 的 赋值 语句 , 给 一 个 变量 赋值 并 显示 该 变量 的 值 ; 


<body> 
<% 
Dim num "声明 变量 
num=100 "初始 化 变量 
Response. Write("<center><font size=10>") "设置 对 齐 方式 和 字体 大 小 
Response. Write("num—="&num) 在 网 页 上 显示 num 的 值 


Response. Write("</font>") 


。72。 


%> 


</body> 
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运行 以 上 代码 后 将 在 网 页 中 显示 num=100。 若 将 代码 中 声明 变量 并 给 num 赋值 的 代码 
(第 3 句 和 第 4 句 ) 改 为 Dim num=100， 程 序 运 行 后 将 提示 错误 。 


3.7 条 件 语句 


条 件 语句 用 于 


既 可 为 单条 语句 ， 


F 判 断 条 件 是 True 或 False， 并且 根据 判断 结果 来 指定 要 运行 的 语句 (语句 
也 可 以 是 由 多 条 语句 组 成 的 复合 语句 )。 用 户 使 用 条 件 语句 可 以 编写 进行 


判断 和 重复 操作 的 VBScript 代码 ， 在 VBScript 中 主要 有 下 …Then 语句 、If:…Then…Else 
语句 和 Select Case 语句 等 三 类 条 件 控制 语句 。 


3.7.1 “If.…Then 语句 


If…Then 语句 是 控制 结构 中 最 常用 的 一 种 。 利 用 该 语句 可 以 检查 条 件 ， 并 基于 检查 的 
结果 执行 一 段 程序 语句 。 其 语法 格式 如 下 : 

If condition Then 

Statement( 语 句 块 ) 

EndIf 


当 condition 条 件 满足 时 ( 即 condition 值 为 True 时 )， 将 执行 Statement。 例 如 以 下 代码 


是 一 个 企 …Then 语 


<html> 


看 句 实例 ， 


<script language="VBScript"> 
function checkO ' 定 义 check0 过 程 
If forml.str.value="" Then "判断 输入 框 是 否 输 入 


alert(" 请 
EndIf 


输入 字符 串 7) "没有 输入 则 给 出 提示 


End Function 


</script> 


</html> 


该 实例 要 求 用 户 在 网 页 的 文本 框 中 输入 一 个 字符 串 ， 当 用 户 单 击 网 页 中 的 “提交 ” 按 
钮 后 ， 程 序 会 调用 check 过 程 判 断 用 户 是 否 在 文本 框 中 输入 了 字符 串 ， 若 没有 输入 则 将 弹 


出 一 个 提示 框 。 
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3.7.2 上 f...Then.….Else 语句 


If…Then…Else 语句 是 下 :Then 语句 的 扩展 。 该 语句 定义 了 两 个 可 执行 语句 块 : 当 条 
件 为 True 时 运行 一 个 语句 块 ， 条 件 为 False 时 运行 另 一 语句 块 。 其 语法 格式 如 下 : 


If condition Then 
Statement1( 语 句 块 1) 
Else 
Statement2( 语 句 块 2) 
EndIf 


当 condition 条 件 满足 时 ， 即 condition 值 为 True 时 ， 将 执行 Statementl， 和 否则 将 执行 
Statement2。 例 如 以 下 代码 为 下 …Then…Else 语句 的 实例 : 

于 instr0 函 数 判 断 输 入 的 字符 串 是 否 包含 @ 字 符 , 若 包 含 , 返回 的 值 是 @ 字 符 在 字符 串 中 第 一 次 出 现 

的 位 置 

If InStr(Request. Form("str"),"(@")<=0 Then 不 包含 ， 给 出 提示 
Response.Write("<script>alert( 输 入 的 字符 串 中 不 包含 @ 字 符 )</script>") 

Else 包含， 给 出 提示 
Response.Write("<script>alert( 输 入 的 字符 串 中 包含 @ 字 符 ')</script>") 
EndIf 

End If 


该 实例 判断 输入 的 字符 串 是 否 包含 @ 字 符 ， 若 包含 则 给 出 包含 字符 的 提示 ， 反 之 则 给 
出 不 包含 字符 的 提示 。 


3.7.3 Select Case 语句 


Select Case 语句 是 下 语句 多 条 件 时 的 另 一 种 表 式 ， 可 在 多 个 执行 语句 中 有 选择 地 执行 
其 中 的 一 个 。 它 的 优点 是 可 使 程序 更 简洁 易 读 ， 其 语法 结构 如 下 : 


Select Case 表达 式 

Case 结果 1 
Statement1( 语 句 块 1) 

Case 结果 2 
Statement2( 语 句 块 2) 


Case 结果 nn 
StatementN( 语 句 块 N) 
Case Else 
StatementN+1( 语 句 块 N+1) 
End Select 
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VBScript 首先 对 表达 式 进行 运算 ， 这 个 运算 可 以 为 数值 运算 或 字符 串 运算 ， 然 后 将 运 
算 结 果 依 次 与 结果 1 到 结果 n 作 比较 ， 当 找到 与 计算 结果 相等 的 结果 时 就 执行 该 语句 ， 执 
行 完毕 后 就 跳出 Select Case 语句; 而 当 运 算 结果 与 所 有 的 结果 都 不 相等 时 , 就 执行 Case Else 
后 面 的 执行 语句 n+l。 

【 例 3-2】 利 用 Select Case 语句 设计 一 个 网 页 ， 该 网 页 会 根据 用 户 的 选择 设置 页 面 背景 。 

(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 : 


<Html> 
<Script Language="VBScript" > 指定 下 面 语句 所 采用 的 脚本 语言 为 VBScript 
Dim strColor "定义 一 个 存放 颜色 的 变量 strColor 
strColor=inputbox(" 请 从 red、green、blue 中 选择 一 个 ， 并 输入 作为 页 面 背 景色 ! ") 
Select Case strColor 

Case "red" document.bgColor = "red" ' 著 strColor 值 为 red， 设 置 页 面 背景 为 红色 


Case "green" document.bgColor = "green" :车 strColor 值 为 green， 设 置 页 面 背景 为 绿色 
Case "blue" document.bgColor = "blue" "如 strColor 值 为 blue， 设 置 页 面 背 景 为 蓝 色 
Case Else MsgBox "输入 有 误 " "如 果 不 是 上 面 3 种 颜色 ， 则 提示 “输入 有 误 ” 

End Select 

</Script> 

</Body></Html> 


(2) 选择 “文件 "| “另存 为 命令, 打开 “另存 为 ”对 话 框 , 将 以 上 代码 保存 为 test20.asp。 
(3) 运行 test20.asp 后 (利用 本 书 第 1 章 架 设 的 ASP 网 站 ) 的 效果 将 如 图 3-7 所 示 。 


| 而 test20 x 二 | 而 tes20 x | + 
约 : "+a* Il :| | Q J Ql 


个 和 [ED 


加 器 心 要 | 天窗 中 如 EEE 


图 3-7 Select Case 语句 应 用 实例 


3.8 循环 语句 


循环 语句 的 作用 是 重复 执行 程序 代码 。 循 环 可 分 为 以 下 3 类 : 
e 在 条 件 变 为 “ 假 ” 之 前 重复 执行 语句 。 
。 在 条 件 变 为 “ 真 ”之 前 重复 执行 语句 。 
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e 按照 指定 的 次 数 重复 执行 语句 。 
在 VBScript 中 , 用 户 可 以 使 用 Do…Loop 语句 、While…Wend 语句 、For…Next 语句 、 
For Each…Next 语句 以 及 Exit 语句 等 5 种 循环 语句 。 


3.8.1 ”Do-…-Loop 语句 


Do…ILoop 循环 是 一 种 条 件 型 的 循环 ， 当 条 件 为 True 时 或 条 件 变 为 True 之 前 ， 
行 语句 块 ， 该 循环 共有 3 种 形式 。 
形式 1: 
Do While 条 件 表达 式 
Statement( 语 句 块 ) 
Loop 
VBScript 首先 检查 条 件 表达 式 的 值 是 否 为 True, 如 果 为 True 才 会 进入 循环 中 执行 语句 。 
另外 ， 也 可 以 对 语句 顺序 进行 一 下 调整 ， 使 它 先 进入 循环 执行 一 次 后 再 对 条 件 进 行 判断 。 
形式 2: 


jm 
二 


EE 复 执 


Do 
Statement( 语 句 块 ) 
Loop While 条 件 表达 式 
如 果 把 Do 循环 中 的 While 换 为 Until， 则 程序 的 运行 过 程 和 前 面 类 似 。 不 同 的 是 ， 只 
要 条 件 为 False 就 执行 循环 。 
形式 3: 
Do 


Statement( 语 句 块 ) 
Loop Until 条 件 表达 式 


注意 : 
Do…Loop 循环 语句 中 可 以 使 用 Exit Do 语句 强行 中 止 循环 。 


【 例 3-3】 利 用 Do…ILoop 循环 语句 ， 创 建 一 个 可 以 显示 循环 语句 的 执行 过 程 的 程序 。 
(1) 启动 Windows 系统 自 带 的 记事 本 工具 后 ， 输 入 以 下 代码 : 

<% 

intNum=1 

Do While intNum<7 

Response.Write "循环 语句 正在 执行 第 "&intNum&" 次 循环 " 

Response. Write "<br>" 在 屏幕 上 输出 一 个 回 车 

intNum=intNum+1 

Loop 

%> 


(2) 选择 “文件 ”| “另存 为 ”命令 , 打开 “另存 为 ”对 话 框 , 将 以 上 代码 保存 为 test21.asp。 
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(3) 运行 test21.asp 后 的 结果 如 图 3-8 所 示 。 


四 ht /192.168.177/test21 x by 
i EE 1 Jam Ci 
RE AN | 加 本 窗 田 [加 可 "|[ 图 coogle Q| as 


循环 语句 正在 执行 第 1 次 循环 


环 请 句 正在 执行 寓 "ntllamt 次 惩 环 ” fe 循环 语句 正 在 执行 第 2 次 循环 
在 屏 划 上 给 出 一 个 四 车 循环 语句 正在 执行 第 5 次 种 环 


逢 环 说 名 正在 执行 第 6 次 笛 环 


了 和 各 过 下载 | 中 富 号 局 乌 = 


图 3-8 ”Do…Loop 语句 应 用 实例 


3.8.2 ”For Each…Next 语句 


For Each…Next 循环 只 针对 数组 或 对 象 集合 中 每 一 个 元 素 的 遍历 循环 。 执 行 循环 的 次 
数 不 再 需要 指定 ， 只 要 有 一 个 元 素 就 循环 一 次 。 其 语法 结构 如 下 : 


For Each 元 素 卫 集合 


Statement( 语 句 块 ) 
Next 
如 果 不 知 道 集 合 中 有 多 少 个 元 素 ， 则 用 For Each 循环 非常 方便 。 如 下 例 可 列举 使 用 
HTML 表单 提交 的 所 有 数值 : 
<% 
For Each item In Request.Form 
Response. Write Request.Form(item) 
Next 
%> 
注意 : 


For 循环 语句 中 可 以 使 用 Exit For 语句 强行 中 止 循环 。 


3.8.3 ”For…Next 语句 


For…Next 循环 语句 是 一 种 强制 性 的 循环 ， 用 于 将 循环 体 运行 指定 的 次 数 。 在 For 循 
环 中 有 一 个 计数 器 变量 ,每 重复 一 次 循环 ， 该 变量 的 值 都 会 增加 或 减少 。 其 语法 结构 如 下 : 


For 循环 变量 = 初始 值 To 结束 值 [Step 步 长 值 ] 
执行 语句 
Next 
For…Next 循环 语句 的 执行 步骤 如 下 : 
(1) 将 循环 变量 设 为 初始 值 。 
(2) 测试 循环 变量 是 否 大 于 结束 值 。 若 是 ， 则 退出 循环 (者 步 长 值 为 负 ， 则 测试 循环 变 
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量 是 否 小 于 结束 值 )， 和 否则 执行 循环 中 的 语句 。 
(3) 执行 语句 运行 完毕 到 Next 语句 时 ，VBScript 将 循环 变量 值 与 步 长 值 相 加 。 
(4) 从 Next 语句 跳 转 到 For 语句 继续 执行 。 


注意 ; 
如 果 省 咯 Step 子 句 ， 那 么 步 长 的 默认 值 是 1.。 


【 例 3-4】 利用 For…Next 循环 语句 , 创建 一 个 可 以 求 出 1 到 100 之 间 奇 数 的 和 并 予以 
显示 的 网 页 程序 。 
(1) 创建 一 个 名 称 为 test22.asp 的 网 页 ， 代 码 如 下 所 示 : 


<% 
Dim intNum,i,intSum 
intNum=1 
intSum=0 
For =1 To 100 Step 2 
Response.Write "循环 语句 正在 执行 第 "&intNum&" 裔 循环 "&"<br> 
Response.Write "第 "&intNum&e" 个 欲 相 加 的 工 值 为 "&ci&e"<br>" 
Response.Write "SUM="&int Sumé&"+"&ig"="&intSum+ig"<br>" 
intSum=intSumrti 
intNum=intNumt 1 
Next 
%> 


(2) 运行 test22.asp 后 的 结果 将 如 图 3-9 所 示 。 


篇 httpy//192.168.1.77/test22 x | 十 
加 名家 田 | 加 全 "| 图 Google Q| ss 


循环 人 交合 环 国 

第 1 个 欲 相 加 的 I 值 

SUI=0+1=1 

a 

第 2 个 欲 相 加 的 I 值 为 

SUI=1+3=4 

循环 语句 正在 执行 第 3 遍 循 环 

第 3 个 欲 相 加 的 I 值 为 5 

SUI=4+5=9 = 
3 加速 器 避 下 载 | 厅 耐 串 过 乌 


ET 
2 Nl EO EBV 0) 


LntSured 
For 1=1 To 1 
[Response. Wri 


图 3-9 For…Next 语句 应 用 实例 


3.8.4 While…Wend 语句 


While…Wend 语句 在 条 件 为 True 时 重复 操作 。 其 语法 格式 如 下 : 
While condition 

Statement 
Wend 


当 condition 为 True 时 ， 执 行 Statement， 否 则 退出 循环 。 
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以 下 代码 为 一 个 While…Wend 语句 实例 程序 ， 在 该 程序 中 While…Wend 语句 循环 判 
断 输 入 的 每 一 个 字符 是 否 属于 26 个 英文 字母 , 若 输入 存在 非 英文 字母 , 则 弹出 提示 对 话 框 ， 
给 出 相应 的 文字 提示 。 


<% 

Function CheckLetter(str) 'str 为 要 检测 的 字符 串 
CheckLetter=True 5 初始 化 
Letters="ABCDEFGHIJKLMNOPQRSTUVWXYZ"” ' 初 始 化 
for i=1 to len(str) "en 函数 返回 字符 串 长 度 

"Mid(str,i,1) 返 回 字 符 串 str 第 i 个 字符 ，UCase 函数 将 该 字符 转换 为 大 写 形式 
checkchar=UCase(Mid(str,i,1)) 
If (InStr(Letters,checkchar)<=0) Then 。 'checkchar 在 Letters 中 不 存在 
CheckLetter=False 
Exit Function 跳出 Function 过 程 
EndIf 
Next '" 结 束 For 循环 
End Function 
%> 
<html> 
<head> 
<title>test23.asp</title> 
</head> 
<body> 


<form method="POST" action="test23.asp" name = forml1> 
<p align="center"> 请 输入 字符 串 : <input type="text" name="string" size="20" 
value=<%=Request.Form("string")%>></p> 
<p align="center"><input type="submit" value=" 确 定 " name="submit"></p> 


</form> 

<% 

If Request.Form("submit")=" 确 定 " Then 
str=Request.Form("string") ' 读 取 输 入 的 字符 串 
Letters="ABCDEFGHIIKLMNOPQRSTUVWXYZ" 初始 化 
length=Len(str) "输入 的 字符 串 的 长 度 
=1 "初始 化 变量 
While i<length+1 "While 循环 


"Mid(str,i,1) 返 回 字符 串 str 第 i 个 字符 ，UCase 函数 将 该 字符 转换 为 大 写 形式 

checkchar = UCase(Mid(str,i,1)) 

下 (InStr(Letters,checkchar)<=0) Then 'checkchar 在 Letters 中 不 存在 ， 给 出 提示 
Response.Write("<script>alert( 输 入 的 字符 串 中 存在 非 字母 ')</script>") 
Response.End ”' 结 束 ASP 文件 的 执行 

EndIf 

itl 

Wend "结束 While 循环 
EndIf 
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%> 


</body> 


将 以 上 代码 保存 (test23.asp) 并 运行 后 的 结果 如 图 3-10 左 图 所 示 ， 当 在 窗口 的 文本 框 中 


输入 包含 非 字母 的 字符 时 (例如 输入 length=Len(str))， 浏 览 器 将 打开 如 图 3-14 右 图 所 示 对 


话 框 。 


E> | 硬 test22asp 
回 句 突 


请 输入 字符 串 ， 


x ‖ + 


国 | 加 "| 图 Go 


length=Len(str)| 


gle Q] Re 


请 输入 字符 串 ，IenethELen(stlr) 


的 一 test22asp x | + 
汉 凶 窗 孙 [gv| 国 Go0c 


加 寺 医 忆 下 载 | 四 而 j 局 马 s 


注意 : 


图 3-10 While…Wend 语句 应 用 实例 


A 


While…Wend 语句 是 为 熟悉 其 用 法 的 用 户 提供 的 ， 由 于 While…Wend 语句 灵活 性 较 
差 ， 一般 用 户 可 以 使 用 Do…Loop 语句 代替 。 


3.8.5 ”Exit 语句 


Exit 语句 可 以 强迫 程序 离开 Do 循环 、For 循环 、Function 过 程 与 Sub 过 程 等 代码 段 。 


其 语法 格式 如 下 : 


Exit Do 

Exit For 

Exit Function 
Exit Sub 


其 中 ，Exit Do 语句 用 于 退出 Do…Loop 循环 ;Exit For 语句 用 于 在 计数 器 达到 其 
值 之 前 退出 For…Next 语句 。 因 为 通常 只 有 在 某 些 特殊 情况 下 才 要 强制 退出 循环 ( 例 妇 


"强制 离开 Do 循环 
"强制 离开 For 循环 
"强制 离开 Function 过 程 
"强制 离开 Sub 过 程 


终止 


[退出 


死 循 环 )， 所 以 用 户 可 以 在 下 …Then…Else 语句 的 True 语句 块 中 使 用 Exit 语句 ( 若 条 件 为 
False， 循 环 将 照常 运行 )。 

以 下 代码 程序 在 For each 循环 中 ， 当 输入 的 邮件 地 址 格式 错误 时 ， 使 用 Response .End 
语句 结束 当前 ASP 文件 的 执行 ， 用 户 也 可 以 使 用 Exit 语句 直接 跳出 For each 循环 。 代 码 


如 下 : 
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<html> 

email=Request Form("Email") ' 读 取 输入 的 字符 串 

names=Split(email,"(@") 

If UBound(names)<>1 Then UBound 函数 返回 数组 的 最 大 下 标 
Response.Write("<script>alert(' 邮 件 格式 错误 ! ')</script>") 给 出 提示 
Response.End "结束 运行 ASP 程序 

EndIf 

For each name in names 'For each 循环 语句 
If Len(name)<=0 Then TLen 函数 获得 字符 串 的 长 度 


字符 串 长 度 小 于 等 于 0， 则 给 出 提示 
Response .Write("<script>alert( 邮 件 格式 错误 ! ")</script>") 
Response End ' 结 束 运 行 ASP 程序 
EndIf 
Next 
EndIf 


</html> 
将 以 上 代码 保存 (test24.asp) 并 执行 后 ， 结 果 如 图 3-11 所 示 ， 若 用 户 在 浏览 器 窗口 中 的 
文本 框 内 输入 错误 的 电子 邮件 地 址 (例如 miaofa@)， 将 弹出 提示 对 话 框 。 


入 | test24.asp x|[+ 号 
加 吕 帘 田 [ 回 和 对"][ 回 Goog QR 


请 洽 入 电子 邮箱 ， miaof38 
E33 


图 3-11 ”Exit 语句 应 用 实例 


3.9 VBScript 中 的 过 程 


过 程 是 用 来 执行 特定 任务 的 独立 程序 代码 。 使 用 过 程 ， 可 以 将 程序 划分 成 一 个 个 较 小 
的 逻辑 单元 ， 过 程 中 的 代码 能 够 被 反复 调用 ， 这 样 可 以 减少 不 必要 的 重复 。 可 以 将 过 程 定 
义 放 在 调用 该 过 程 的 同一 个 ASP 文件 中 ， 也 可 以 将 常用 过 程 放 在 共享 的 文件 中 ， 并 使 用 
#include 命令 将 该 文件 包含 在 调用 过 程 的 ASP 文件 中 。 
VBScript 根据 是 否 返 回 值 将 过 程 划分 为 Sub 过 程 ( 子 过 程 ) 和 Function 过 程 (函数 ) 两 种 。 
Sub 过 程 只 执行 程序 而 不 返回 值 ， 因 而 不 能 用 于 表达 式 中 ;而 Function 函数 可 以 将 执行 代 
码 后 的 结果 返回 给 请 求 程序 。 
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3.9.1 Sub 过 程 


Sub 过 程 是 一 种 可 以 获取 参数 ， 执 行 一 系列 语句 以 及 可 改变 其 参数 的 值 的 独立 过 程 。 
Sub 过 程 可 以 使 用 参数 ， 如 调用 过 程 传递 的 常数 、 变 量 或 表达 式 ， 用 于 在 调用 过 程 和 被 调 
用 过 程 之 间 传 递 信息 。 如 果 Sub 过 程 无 任何 参数 ， 则 Sub 语句 必须 包含 空 括号 0。 其 语法 
结构 如 下 : 


Sub 子 程序 名 (参数 1, 参 数 2,…) 


End Sub 


定义 一 个 Sub 过 程 后 ， 就 可 以 在 程序 代码 中 调用 它 。Sub 过 程 的 调用 有 两 种 方式 。 一 
种 是 使 用 Call 语句 ， 它 要 求 将 所 有 参数 包含 在 括号 之 中 。 其 语法 结构 如 下 : 


Call 子 程序 名 (参数 1, 参 数 2…) 


另 一 种 是 直接 使 用 子 过 程 名 ， 只 需 输入 过 程 名 及 所 有 人参 数值， 参数 值 之 间 使 用 逗号 
隔 。 其 语法 结构 如 下 : 


子 过 程 名 (参数 1, 参 数 2,…) 


注意 : 
使 用 Exit Sub 语句 可 以 立即 从 Sub 过 程 中 退出 ， 程 序 继 续 执行 调用 Sub 过 程 的 语 
和 句 之 后 的 语句 ， 在 Sub 过 程 中 任意 位 置 可 以 出 现任 意 个 Exit Sub 语句 。 


【 例 3-5】 建 立 一 个 可 将 参数 在 弹出 式 信息 对 话 框 显示 的 Sub 过 程 ， 并 在 程序 中 多 次 调 
用 它 。 
(1) 创建 一 个 名 称 为 test25.asp 的 网 页 ， 代 码 如 下 所 示 : 


<Script Language="VBScript" > 
Call output(" 第 一 次 调用 过 程 ") 
output "再 试 一 次 调用 过 程 " 
Sub output(strText) 
MsgBox strText 
End Sub 
</Script> 


(2) 运行 test25.asp 后 的 效果 如 图 3-12 所 示 。 


" e716a17712az x | 二 
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注意 : 

在 Sub 过 程 中 使 用 的 变量 分 为 两 类 : 一 类 是 在 过 程 内 显 式 声明 的 ， 另 一 类 则 不 是 。 在 
过 程 内 显 式 声明 的 变量 (使 用 Dim 或 等 效 方法 ) 总 是 局 部 变量 , 对 于 那些 没有 在 过 程 中 显 式 
声明 的 变量 也 是 局 部 的 ， 除 非 在 该 过 程 外 更 高 级 别 的 位 置 显 式 地 声明 它们 。 


3.9.2 ”Function 过 程 


函数 和 子 过 程 一 样 ， 也 是 用 来 完成 特定 功能 的 独立 的 程序 代码 ， 可 以 读 取 参 数 、 执 行 
一 系列 语句 并 改变 参数 的 值 。 但 函数 有 一 个 最 重要 的 特点 ， 就 是 调用 时 将 返回 一 个 值 。 函 
数 的 语法 结构 如 下 : 


Function 函数 名 (参数 1, 参 数 2…) 
Statement( 语 句 块 ) 


函数 名 = 表达 式 
Statement( 语 句 块 ) 
End Function 


与 Sub 过 程 类 似 ， 其 中 “参数 1, 参 数 2…” 是 指 调 用 时 传递 的 常数 、 变 量 或 表达 式 ， 
如 果 无 任何 参数 ， 则 Function 语句 必须 使 用 空 括号 。 与 Sub 过 程 不 同 的 是 ，Function 函数 
通过 函数 名 返回 一 个 值 ， 这 个 值 是 在 函数 体 中 赋 给 函数 名 的 ，Function 返回 值 的 数据 类 型 
是 Variant。 

“函数 名 = 表达 式 ” 用 于 为 函数 设置 返回 值 ， 该 值 将 返回 给 调用 的 语句 ， 函 数 中 至 少 
要 含有 一 条 这 样 的 语句 。 

Function 函数 只 有 通过 直接 引用 函数 名 实现 函数 的 调用 ， 而 且 函 数 名 必须 用 在 变量 赋 
值 语句 的 右 端 或 表达 式 中 。 调 用 函数 时 ， 参 数 要 放 在 一 对 括号 中 ， 这 样 就 可 以 将 它们 和 表 
达 式 的 其 他 部 分 分 开 。 例 如 : 


temp = Celsius(60) 


注意 : 

使 用 Exit Function 语句 可 以 从 Function 过 程 中 立即 退出 ,程序 继续 执行 调用 Function 
过 程 语句 之 后 的 语句 ， 但 执行 前 必须 为 函数 赋值 ， 否 则 就 会 出 错 。 在 Function 过 程 的 任 
意 位 置 可 以 出 现任 意 个 Exit Function 语句 。 


【 例 3-6】 创 建 一 个 函数 ， 将 华氏 温度 换算 为 摄氏 温度 。 
(1) 创建 一 个 名 称 为 test26.asp 的 网 页 ， 代 码 如 下 所 示 : 
<Script Language="VBScript" > 
temp = InputBox(" 请 输入 华氏 温度 。", 1) 
MsgBox "温度 为 " & Celsius(temp) & "摄氏度 。" 
Function Celsius(fDegrees) 
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Celsius = (fDegrees -32)* 5/9 
End Function 
</Script> 
(2) 运行 test26.asp 后 的 结果 如 图 3-13 所 示 。 


[@ hepyio2168 7hesar x | + 


© 祝 田 | 豆 全 人 白 "|| 国 Google Q 
看 vBscript 1 - 
痛 


| 


图 3-13 ”华氏 温度 换算 为 摄氏 度 


3.9.3 ”参数 按 地 址 传递 与 按 值 传递 


VBScript 


温度 为 10 又 氏 度 。 


默认 情况 下 ， 参 数 按 地 址 传递 ， 即 过 程 按 变量 的 内 存 地 址 去 访问 实际 变量 的 内 容 。 这 
样 将 变量 传 给 过 程 时 ， 通 过 过 程 就 可 以 改变 变量 的 值 。 按 地 址 传递 的 关键 字 为 ByRef。 


另外 ， 参 数 还 可 以 按 数值 传递 。 按 值 传递 参数 时 ， 传 递 的 


只 是 变量 的 副本 。 如 果 过 程 9 


P 改 


变 了 这 个 值 ， 则 所 做 的 变动 只 影响 副本 而 不 会 影响 到 变量 本 身 。 按 值 传送 的 关键 字 是 ByVal。 
【 例 3-7】 建 立 两 个 分 别 按 地 址 传递 和 按 值 传递 的 过 程 ， 比 较 其 异同 。 


(1) 创建 一 个 名 称 为 test27.asp 的 网 页 ， 代 码 如 下 所 示 : 


<% 
Sub TestByVal(ByVal X) 
X=X*33 
End Sub 
Sub TestByRef(ByRef X) 
X=X/10 
End Sub 


intNum=60 

Response.Write " 原 测试 数值 为 "&intNum&"<br>"&"<br>" 

Call TestByVal(intNum) 

Response.Write "使 用 ByVal 关键 字 ， 参 数 按 值 传递 调用 过 程 后 
"&intNume&"<br>"&"<br>" 

Call TestByRef(intNum) 

Response.Write "使 用 ByRef 关键 字 ， 参 数 按 地 址 传递 调用 过 程 


%> 


，_ 测 试 变量 的 值 为 


后 ，_ 测 试 变量 的 值 为 "&intNum 
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(2) 运行 test27.asp 后 的 结果 如 图 3-14 所 示 。 


篇 而 htpJ/192.168.177hes27 x | 十 he 
”加 名 安 |96 dv)|g Soogle QS 


原 测 试 数值 为 60 
使 用 Byyal 关 键 宇 ， 参 数 按 值 传递 调用 过 程 后 ，_ 测 试 变 重 的 值 为 80 
使 用 8yfef 关 键 字 ， 参 数 按 地 址 待 通 调用 过 程 后 ，_ 测 试 变量 的 值 为 6 


了 jn 过 下 载 | 中 本 叫 马 包 ” 


图 3-14 参数 按 地 址 传递 和 按 值 传递 


注意 : 
从 上 例 的 运行 结果 可 看 出 ， 按 值 传递 后 ， 变 量 intVar 的 值 保持 不 变 ， 仍 为 60; 而 按 地 
址 传递 后 ， 值 将 变 为 6。 


3.9.4 ”数组 参数 


数组 作为 参数 传递 时 ， 与 普通 参数 有 些 不 同 。 在 过 程 中 声明 数组 参数 时 ， 必 须 略 去 数 
组 的 长 度 ， 即 设置 一 个 动态 数组 。 在 调用 语句 中 ， 只 需 给 出 要 传递 的 数组 名 即 可 ， 不 必 包 
括 数 组 的 下 标 及 圆 括号 。 

【 例 3-8】 用 产生 随机 数 的 方法 给 一 个 数组 赋值 ， 并 调用 过 程 来 将 其 中 的 元 素 按 从 小 
到 大 的 顺序 排序 。 

(1) 创建 一 个 名 称 为 test28.asp 的 网 页 ， 代 码 如 下 所 示 : 


<% 
Sub Sort (arr0,armum) 
Dim Ll,intTemp 
For I=0 to armum 
For J=0 to armum 


Next 
Next 
End Sub 
Dim armTest(9) 工 
ForI0to9 
amTest(D=Int(RndO*100+1) 
Next 
Sort arrTest,9 


第 3 章 VBScript 脚本 语言 *。85。 


ForI=0To9 
Response. Write arrTest(D&"<br>" 
Next 
%> 


(2) 运行 test28.asp 后 的 结果 ， 如 图 3-15 所 示 。 


加 testzgasp -记事 志 — le 
而 htpy/192.158.177/test25 x | 十 
| - 总 田 | 加 "| 四 Q 


EC SH VE 


人 1 58 
(D)=Int Rnd)#100+1) 54 


| 加 要 器 世 F 壹 |[ 习 曾 时 局 


图 3-15 将 参数 作为 信息 弹出 


3.10 VBScript 函 数 


VBScript 把 一 些 最 常 使 用 的 功能 整理 起 来 ， 编 制 好 了 相应 的 处 理 程序 ， 将 它们 以 函数 
的 形式 提供 使 用 。 恰 当地 使 用 函数 可 以 节省 大 量 的 时 间 ， 表 3-6 对 VBScript 提供 的 函数 做 
了 概括 。 


表 3-6 VBScript 函数 概括 


函数 说 了 明 
Abs 返回 一 个 数 的 绝对 值 ， 如 Abs(-1) 和 Abs(1) 都 返回 1 
Array 返回 一 个 Variant 值 ， 其 中 包含 一 个 数组 
Asc 返回 与 字符 串 的 第 一 个 字母 相关 的 ANSI 字符 编码 ， 如 Asc("Body") 返 回 66 
Atn 返回 一 个 数 的 反正 切 值 。 如 4*Atn(1) 得 到 的 值 3.141 592 653 589 79 
计算 表达 式 的 布尔 值 。 如 果 表 达 式 的 值 为 0， 则 返回 False， 否 则 返回 True。 例如 ， 
CBool(9) 返 回 Tme 
CByte 将 表达 式 转换 为 Byte 子 类 型 ， 如 CByte(45.678 9) 返 回 46 
CCur 将 表达 式 转换 为 Currency 子 类 型 ， 如 CCur(123.456 789) 返 回 123.456 8 
CDate 将 表达 式 转换 为 Date 子 类 型 ， 如 CDate("July 21,2015") 返 回 2015-7-21 
CDbl 将 表达 式 转换 为 Double 子 类 型 
Chr 返回 与 指定 的 ASCI 字符 代码 相对 应 的 字符 ， 如 Chr(66) 返 回 B 
CInt 将 表达 式 转换 为 Integer 子 类 型 ， 如 CInt(456.78) 返 回 457 
CLng 将 表达 式 转换 为 Long 子 类 型 ， 如 CLng(123 456.78) 返 回 123 457 
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函数 说 明 
Cos 返回 某 个 角 的 余弦 值 
CreateObject 创建 并 返回 对 象 实例 。 注 意 ， 在 ASP 中 不 要 用 该 函数 创建 对 象 实例 
CSng 将 表达 式 转换 为 Single 子 类 型 
CStr 将 表达 式 转换 为 String 子 类 型 ， 如 st=CStr(87.63)， 则 str 值 为 字符 串 "87.65" 
Date 返回 当前 系统 日 期 
a 返回 已 添加 指定 时 间 间 隔 的 日 期 ， 如 DateAdd("m",2,"21-July-2015") 将 2015 年 7 月 
21 日 加 两 个 月 ， 得 到 2015-9-21 
DateDiff 返回 两 个 日 期 间 的 时 间 间 隔 ， 如 DateDiff("d","21-7-2015","23-7-2015") 将 返回 2 
DatePart 返回 给 定 日 期 的 指定 部 分 ， 如 DatePart("yyyy","21-July-2015") 返 回 2015 
使 用 指定 的 年 、 月 、 日 返回 Date 子 类 型 ， 如 DateSerial(2015-10,8-2,1-1) 将 返回 
DateSerial 
2005-5-31 
DateValue 返回 Date 子 类 型 ， 如 DateValue("September 11,1963") 将 返回 1963-9-11 
Day 返回 1~31 之 间 的 一 个 整数 ， 表 示 某 月 中 的 一 天 ， 如 Day("July 21,2015") 将 返回 21 
Eval 计算 一 个 表达 式 的 值 并 返回 结果 
Exp 返回 e( 自 然 对 数 的 底 ) 的 寡 次 方 
Filter 返回 下 标 从 零 开始 的 数组 ， 包 含 基于 特定 过 滤 条 件 的 字符 串 数组 的 子 集 
返回 数字 的 整数 部 分 ，Int 和 Fix 的 区 别 在 于 : 如 果 参 数 为 负数 ， 则 Int 返回 小 于 或 
Int、Fix 等 于 参数 的 第 一 个 负 整 数 , 而 Fix 返回 大 于 或 等 于 参数 的 第 一 个 负 整数 。 例 如 ,Int( - 
6.4) 将 返回 - 7， 而 Fix( - 6.4) 将 返回 -6 
返回 一 个 表达 式 ， 该 表达 式 被 格式 化 为 货币 值 (使 用 系统 控制 面板 中 定义 的 货币 符 
FormatCumrencey | 号 )。 例 如 ， 当 系统 控制 面板 中 定义 的 货币 符号 是 人 民 币 符号 时 ， 
FormatCurrency(2000) 将 返回 三 2000.00 
格式 化 日 期 和 时 间 。 例 如 ，FormatDateTime(Now,0) 返 回 值 为 2015-7-15 11:25:45， 
op 而 FormatDateTime(Now.1) 返 回 值 为 2015 年 7 月 15 日 
格式 化 一 个 数值 。 例 如 ，FormatNumber(1233.4567,2) 返 回 值 为 带 两 位 小 数 点 的 数 
FormatNumber 1233.46，FormatNumber( - 0.1234,3,-1) 返 回 值 为 - 0.123( 仿 小数点 前 的 0)， 而 
FormatNumber( - 0.1234.3.0) 返 回 值 为 -.123( 不 含 小 数 点 前 的 0) 
FormatPercent 格式 化 为 以 % 符 号 结尾 的 百分比 格式 ， 如 FormatPercent(2/32) 返 回 6.25% 
人 访问 文件 中 的 自动 化 对 象 ， 并 将 该 对 象 赋 给 对 象 变量 。 注 意 ， 在 ASP 中 不 要 用 该 
函数 创建 对 象 实例 
Hex 返回 表示 十 六 进 制 数 字 值 的 字符 串 ， 如 Hex(459) 返 回 "1CB" 
Hour 返回 0 一 23 之 间 的 一 个 整数 ， 表 示 一 天 中 的 某 一 小 时 
InpuBox 显示 一 个 输入 框 ， 提 示 用 户 输入 一 个 数据 
InStr 返回 某 字 符 串 在 另 一 个 字符 串 中 第 一 次 出 现 的 位 置 
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( 续 表 ) 
函数 说 了 明 

InStrRev 返回 某 字符 串 在 另 一 个 字符 串 中 出 现 的 从 结尾 计 起 的 位 置 
IsArmay 返回 布尔 值 ， 确 定 一 个 变量 是 否 为 数组 
IsDate 返回 布尔 值 ， 确 定 表达 式 是 否 可 以 转换 为 日 期 
IsEmpty 返回 布尔 值 ， 确 定 一 个 变量 是 否 为 空 
IsNull 返回 布尔 值 ， 确 定 一 个 表达 式 是 否 包含 无 效 的 数据 
IsNumeric 返回 布尔 值 ， 确 定 一 个 表达 式 是 否 为 数字 
IsObject 返回 布尔 值 ， 确 定 一 个 表达 式 是 否 引 用 了 有 效 的 对 象 
Join 将 数组 中 的 多 个 子 字符 串 合 成 一 个 字符 串 
LBound 返回 数组 某 一 维 的 下 界 
LCase 返回 字符 串 的 小 写 形式 
Left 返回 指定 数目 的 从 字符 串 的 左边 算 起 的 字符 
Len 返回 字符 串 内 字符 的 数目 

返回 图 片 对 象 。 可 以 由 LoadPicture 识别 的 图 形 格式 有 位 图 文件 (.bmp)、 图 标 文件 
LoadPicture (.ico), 行程 编码 文件 (.rle)、 图 元 文件 (.wmf)、 增 强 型 图 元 文件 (.emf)、GIF 文件 (.gif) 

和 JPEG 文件 Cjpg) 
Log 返回 数值 的 自然 对 数 
Ltrim、Rtrin 和 截 去 字符 串 中 的 前 导 空 格 (Ltrim)、 后 续 空格 (Rtrim) 或 前 导 与 后 续 空格 (Trim) 
Trim 
Mid 从 字符 串 中 返回 指定 数目 的 字符 
Minute 返回 0 一 59 之 间 的 一 个 整数 ， 表 示 一 小 时 内 的 某 一 分 钟 
Month 返回 1 一 12 之 间 的 一 个 整数 ， 表 示 一 年 中 的 某 月 
MonthName 返回 代表 指定 月 份 的 字符 串 

_MsgBox 显示 一 个 信息 对 话 框 

Now 根据 计算 机 系统 设 定 的 日 期 和 时 间 返 回 当前 的 日 期 和 时 间 值 
Oct 返回 表示 数字 八进制 值 的 字符 串 ， 如 Oct(8) 返 回 10 
Replace 将 字符 串 内 的 子 字 符 串 替换 为 指定 的 串 
RGB 返回 代表 RGB 颜色 值 的 整数 
Right 从 字符 串 右边 返回 指定 数目 的 字符 
Rnd 返回 一 个 随机 数 
Round 返回 按 指定 位 数 进行 四 舍 五 入 的 数值 ， 如 Round(3.141 59,2) 返 回 3.14 
ScriptEngine 返回 一 个 代表 当前 使 用 的 脚本 程序 语言 的 字符 串 
Second 返回 0~59 之 间 的 一 个 整数 ， 表 示 一 分 钟 内 的 某 一 秒 
Son 返回 表示 数字 符号 的 整数 ， 如 Sgn(2) 返 回 1, Sgn(0) 返 回 0, Sgn(-3) 返 回 -1 
Sin 返回 一 个 角度 的 正弦 值 
Space 返回 由 指定 数目 的 空格 组 成 的 字符 串 
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函数 说 了 明 
Split 返回 基于 0 的 一 维 数组 ， 其 中 包含 指定 数目 的 子 字符 串 
Sqr 返回 数值 的 平方 根 
StrComp 比较 两 个 字符 串 ， 并 返回 比较 结果 
String 返回 指定 长 度 的 、 重 复 字 符 组 成 的 字符 串 ， 如 String(3, "B") 返 回 "BBB" 
StrReverse 将 字符 串 按 反 序 排列 输出 
Tan 返回 一 个 角度 的 正切 值 
Time 返回 目前 的 系统 时 间 
Timer 返回 午夜 12 时 以 后 已 经 过 去 的 秒 数 
TimeSerial 返回 包含 指定 时 、 分 、 秒 的 时 间 ， 如 TimeSerial(12-6, -15.0) 返 回 5:45:00AM 
TimeValue 返回 包含 时 间 的 Date 子 类 型 
TypeName 返回 一 个 变量 的 子 类 型 信息 
UBound 返回 数组 某 一 维 的 上 界 
UCase 返回 字符 串 的 大 写 形式 
VarT 返回 表示 变量 子 类 型 的 整数 
Weekda 返回 表示 一 星期 中 某 天 的 整数 
WeekdayName 返回 一 个 字符 串 ， 表 示 星期 中 指定 的 某 一 天 
Year 返回 一 个 代表 某 年 的 整数 

3.11 习题 
3.11.1 填空 题 


1. 在 ASP 文件 
2.VBScript 只 有 一 种 数据 类 型 ， 即 


直接 声明 主要 脚本 语言 为 VBScript 的 语句 为 
类 型 ， 也 叫 变 体 类 型 。 


3. VBScript 包括 4 种 类 型 的 运算 符 ， 即 算术 运算 符 、 、 和 由 
4. 一 经 声明 ， 在 程序 执行 期 间 ， 其 值 不 会 发 生 改变 。 
5. VBScript 中 声明 多 个 变量 时 ， 使 用 分 隔 变量 。 
6. 数组 中 的 每 个 元 素 都 用 唯一 的 来 识别 。 
3.11.2 ”选择 题 
1. 在 一 段 程序 中 a 是 一 个 变量 ， 那 么 "a" 是 ( 。 “)。 
A. 变量 B. 直接 常量 C. 字面 常量 D. 符号 常量 
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2. 执行 语句 a="6" 后 ， 变 量 a 的 数据 子 类 型 是 ( ” )。 


A. 字符 串 B. 日 期 C. 数值 D. 布尔 
3. 语句 a="abc"="abc" 运 行 完毕 后 ， 变 量 a 的 数据 子 类 型 是 ( “)。 
A. 数值 B. 字符 串 C. 布尔 D. 日 期 


4 已 知 a="ab"， 那 么 执行 语句 b="cd" &a &&""&"ef' 后 ， 变 量 b 的 值 是 ( )。 
(提示 : 请 注意 题目 和 答案 中 的 空格 ) 
A. "cd'ab ef" B. "cd'abef" C. "cdabef" D. "cdab ef" 


3.11.3 ”问答 题 


1. 名 词 解释 : 单 目 运算 符 、 双 目 运算 符 、 操 作 数 、 函 数 、 子 程序 、 过 程 。 
2. 不 同 过 程 中 的 变量 名 是 否 可 以 一 样 ? 

3. 在 VBScript 中 怎样 为 程序 添加 注释 语句 ? 

4. 在 VBScript 中 可 以 直接 使 用 变量 吗 ? 使 用 变量 的 方法 有 哪些 ? 

5. VBScript 中 有 哪 几 类 运算 符 ? 运算 符 的 优先 级 从 高 到 低 的 顺序 是 什么 ? 


3.11.4 ”操作 题 


1. 在 网 页 中 添加 时 间 显 示 信息 ， 显 示 当 天 的 日 期 、 时 间 和 星期 。 
2. 编写 程序 ， 随 机 产生 一 个 0~9 的 整数 。 如 果 是 偶数 ， 则 在 页 面 上 输出 “生成 的 是 
偶数 ”， 否 则 输出 “生成 的 是 奇数 ”。 


第 4 章 Request 对 象 与 
Response 对 象 


教学 目标 
通过 对 本 章 的 学 习 ， 读 者 应 了 解 Request 对 象 和 Response 对 象 的 各 种 方法 及 属性 ， 并 
能 够 运用 它们 与 客户 端 浏览 器 进行 信息 交互 。 


e@ Request 对 象 在 网 页 设计 中 的 应 用 
@ Response 对 象 在 网 页 设计 中 的 应 用 


在 ASP 中 , 与 客户 端的 动态 交互 是 通过 Response 和 Request 对 象 实现 的 , 这 两 个 对 象 


起 到 了 服务 器 与 客户 机 之 间 的 信息 传播 作用 。 其 中 Response 对 象 用 于 接收 客户 端 浏览 器 提 
交 的 数据 ， 而 Request 对 象 则 用 于 将 服务 端的 数据 发 送 到 客户 端 浏 览 器 。 


4.1 Request 对 象 与 Response 对 象 的 关系 


ASP 提供 了 6 个 内 建 对 象 ， 这 些 对 象 使 用 户 更 容易 收集 通过 浏览 器 请 求 发 送 的 信息 、 
响应 浏览 器 以 及 存储 用 户 信 息 。 其 中 ，Request 和 Response 对 象 最 为 重要 ， 它 们 连接 了 服 
务 器 与 客户 机 ， 起 到 信息 传递 作用 。 使 用 Request 对 象 可 以 访问 任何 用 HITP 请 求 传递 的 
信息 ， 包 括 从 HIML 表格 用 POST( 方 法 或 GETO 方 法 传递 的 参数 、Cookie 和 用 户 认证 。 
而 Response 对 象 可 控制 发 送 给 用 户 的 信息 ,包括 直接 发 送信 息 给 浏览 器 、 重 定向 浏览 器 到 
另 一 个 URL 或 设置 Cookie 的 值 。 

Request 和 Response 对 象 的 功能 是 相对 的 ， 它 们 结合 在 一 起 ， 便 可 实现 客户 端 Web 页 
面 与 服务 器 端 ASP 文件 之 间 的 数据 交换 ， 其 工作 原理 如 图 4-1 所 示 。 


客户 端 浏览 器 给 予 回应 服务 器 端 


图 4-1 Request 和 Response 对 象 
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对 象 一 般 有 方法 、 属 性 、 集 合 和 事件 。 其 中 , 方法 决定 了 可 以 用 这 个 对 象 做 什么 事情 ， 
属性 可 以 读 取 对 象 状态 或 者 设置 对 象 状态 ， 集 合 是 由 很 多 不 同 的 与 对 象 有 关系 的 键 和 值 的 
配对 组 成 的 。 


4.2 Request 请 求 对 象 


Request 对 象 用 于 连接 客户 端的 Web 页 (Chtml 文件 ) 和 服务 器 端的 Web 页 (.asp 文件 )， 
使 它们 之 间 可 以 进行 数据 交换 。 Request 对 象 多 许 ASP 查询 有 关 与 之 交互 的 客户 程序 信息 ， 
它 代表 由 客户 程序 发 出 的 HITP 请 求 报 文 。 


4.1.1 Request 对 象 概述 


客户 程序 可 以 用 多 种 方法 将 信息 发 送 到 ASP 文件 。HTML 文件 、 另 一 个 ASP 文件 或 
ASP 文件 本 身 ， 无 论 用 何 种 方法 提交 信息 ， 都 必须 在 ASP 代码 中 使 用 Request 对 象 及 其 集 
合 。 下 面 将 介绍 Request 对 象 的 属性 、 方 法 及 集合 。 

1. Request 对 象 的 属性 

表 4-1 所 示 为 Request 对 象 唯 一 的 属性 及 说 明 ， 它 提供 关于 用 户 请 求 的 字 节 数量 的 信 
息 ， 并 很 少 被 用 于 ASP 页 。 


表 4-1 Request 对 象 的 属性 及 说 明 


只 读 ， 返 回 由 客户 端 发 出 请 求 整 个 字 节 数 量 
2. Request 对 象 的 方法 


表 4-2 所 示 为 Request 对 象 唯一 的 方法 及 说 明 ， 它 允许 访问 从 一 个 <FORM> 段 中 传递 
给 服务 器 的 用 户 请 求 部 分 的 完整 内 容 。 


表 4-2 Request 对 象 的 方法 及 说 明 


方 ” 法 说 了 明 
当 数 据 作为 POST 请 求 的 一 部 分 发 往 服务 器 时 ,从 客户 请 求 中 获得 count 
. 字 节 的 数据 ， 返 回 一 个 Variant 数组 (或 者 SafeArray)。 如 果 ASP 代码 已 
BinaryRead(count) 


经 引用 了 RequestForm 集合 ， 这 个 方法 就 不 能 用 。 同 样 ， 如 果 用 了 
BinaryRead0 方 法 ， 就 不 能 访问 RequestForm 集合 


3. Request 对 象 的 集合 


Request 对 象 提供 了 5 个 集合 ， 可 以 用 来 访问 客户 端 对 Web 服务 器 请 求 的 各 类 信息 ， 
具体 说 明 如 表 4.3 所 示 。 
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集合 名 称 


表 4-3” Request 对 象 的 集合 及 说 明 
说 明 


ClientCertificate 


当 客 户 端 访问 一 个 页 面 或 其 他 资源 时 ， 用 来 向 服务 器 表明 身份 的 客户 证 书 
的 所 有 字段 或 条 目的 数值 集合 ， 每 个 成 员 均 为 只 读 


Cookies 


QueryString 


根据 用 户 的 请 求 ， 用 户 系统 发 出 的 所 有 Cookie 的 值 的 集合 ， 这 些 Cookie 
仅 对 相应 的 域 有 效 ， 每 个 成 员 均 为 只 读 

METHOD 的 属性 值 为 POST 时 ， 所 有 作为 请 求 提交 的 <FORM> 段 中 的 
HTML 控件 单元 的 值 的 集合 ， 每 个 成 员 均 为 只 读 

依附 于 用 户 请 求 的 URL 后 面 的 名 称 /数值 或 者 作为 请 求 提交 的 且 
METHOD 属性 值 为 GET( 或 者 省 略 其 属性 ) 的 ， 或 <FORM> 中 所 有 HTML 
控件 单元 的 值 ， 每 个 成 员 均 为 只 读 


ServerVariables 


随同 客户 端 请 求 发 出 的 HTTP 报头 值 ， 以 及 Web 服务 器 的 几 种 环境 变量 
的 值 的 集合 ， 每 个 成 员 均 为 只 读 


4.1.2 应 用 Request 对 象 


利用 Request 对 象 可 以 收集 并 处 理 用 户 通过 HTTP 请 求 传递 的 所 有 信息 ,包括 HTML 
表格 用 POSTO 方 法 或 GETO 方 法 传递 的 参数 、Cookie 数据 和 用 户 认证 等 。Request 对 象 


的 语法 结构 如 下 : 


Request [. 集合 | 属性 | 方法 ]( 变 量 ) 

Request 对 象 包含 3 类 成 员 ， 分 别 为 集合 、 属 性 和 方法 ， 其 中 集合 包含 了 客户 端的 数 
据 内 容 ， 表 4-4 列 出 了 Request 对 象 的 集合 成 员 。Request 对 象 的 属性 与 方法 各 有 一 个 ， 并 
在 ASP 网 页 中 很 少 使 用 ， 所 以 这 里 不 再 进行 说 明 。 


表 4-4 ”Request 对象 的 集合 成 员 


集 合 说 明 

Cookies 允许 用 户 检索 在 HTTP 请 求 中 发 送 的 Cookie 的 值 

Form 当 <form> 标 签 的 方法 设 为 POST 时 ， 检 索 HTTP 请 求 正文 中 的 表格 元 素 的 值 
Strin 检索 HTTP 查询 字符 串 变 量 的 值 ，HTTP 查询 字符 串 由 问号 (? ) 后 的 值 指 定 


ServerVariables 


客户 端 对 服务 器 提出 请 求 ， 同 时 传送 至 服务 器 的 HTTP 标题 与 服务 器 变量 等 数据 


例如 ， 下 面 的 语句 用 于 从 HIML 表单 中 取得 用 POST 方法 传递 的 UserName 数据 : 


<% strUserName =Request.Form("UserName")%> 


Request 语句 


FP 的 集合 名 称 也 可 以 省 略 ， 如 上 面 的 语句 可 以 写成 以 下 的 形式 : 


<% strUserName =Request ("UserName")%> 
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注意 : 

如 果 在 Request 对象 中 没有 指定 准确 的 集合 名 称 ，ASP 会 自动 搜索 来 确定 数据 的 获取 
方法 。 搜 索 的 顺序 是 QueryString、Form、Cookies 和 ServerVariables，ASP 逐一 检查 是 否 
有 信息 输入 ， 如 果 有 则 会 返回 获得 的 变量 信息 。 


1. QueryString 集合 读 取 表单 GET() 方 法 数据 

网 页 中 常 采取 表单 的 形式 与 访问 者 进行 交互 。 用 户 在 表单 中 输入 信息 后 , 单 击 “确定 ” 
或 “提交 ”按钮 即 可 将 信息 传送 到 服务 器 上 ， 服 务 器 可 获取 这 些 信息 进行 下 一 步 的 处 理 和 
操作 。 在 HTML 中 常见 的 FORM 语句 的 语法 结构 如 下 : 


<Form Action= 处 理 程序 的 网 址 Method=GetlPost Name= 该 FORM 的 名 称 > 


</Form> 


其 中 ，Action 属性 用 于 指定 表单 处 理 程序 的 URL; Method 属性 则 指定 提供 数据 的 方 
法 ， 可 取 值 为 GETO 与 POST0 方 法 的 其 中 一 个 。 表 单 选用 GETO 方 法 时 ，ASP 要 使 用 
Request.QueryString 集合 来 读 取 表 单数 据 ， 选 用 POSTO 方 法 时 ，ASP 则 使 用 Request.Form 
集合 来 读 取 表单 的 数据 。 

当 HTML 表单 用 GETO 方 法 向 ASP 文件 传递 数据 时 ， 表 单 提交 的 数据 不 是 被 当 作 一 
个 单独 的 包 发 送 ， 而 是 被 附 在 URL 的 查询 字符 串 中 一 起 被 提交 到 服务 器 端 指定 的 文件 中 。 

QueryString 集合 的 功能 就 是 从 查询 字符 串 中 读 取 用 户 提交 的 数据 。 例 如 ， 从 下 面 的 
URL 地 址 信息 中 ，Request.QueryString 可 得 到 strName 和 Title 两 个 变量 的 值 。 


http://zhangshihua/4-1-login.asp?strName= 赵 钢 &Title=Mr 


注意 : 
查询 字符 串 以 问号 (? ) 开 始 ， 包 含 几 对 字段 名 和 分 配 的 值 。 不 同 的 字段 名 和 值 对 用 人 
符号 连接 。 
【 例 4-1】 使 用 GETO 方 法 传递 图 4-2 所 示 的 HIML 表单 中 的 值 ， 并 将 结果 在 ASP 页 
面 上 显示 出 来 。 
(1) 创建 一 个 名 称 为 test3.asp 的 网 页 ， 代 码 如 下 所 示 : 


<Form Action="login1.asp" Method="Get" Name="login"> 
用 户 名 : <Input Type=text Name=strName > 
<Br<Br 
性 &nbsp 别 : <Input Name="Title" Type="Radio" Value="Mr" Checked> 先 生 
<Input Name="Title" Type="Radio" Value="Ms"> 女 士 
<Br<Br 
<Input Type="Submit" Value=" 确 认 提 交 '> 
<Input Type="Reset" Value-" 重 新 输入 "> 
</Form> 
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(2) 创建 表单 信息 结果 的 程序 文件 login1.asp， 代 码 如 下 所 示 : 


<% 

Dim strName,strTitle 
strName=Request.QueryString("strName") 
Response.Write" 您 的 用 户 名 为 "&strName 
Response. Write"<br>" 
strTitle=Request.QueryString("Title") 

If strTitle="Mr" Then 
Response.Write" 先 生 ， 您 好 ! " 
Else 
Response.Write" 女 士 ， 您 好 !" 
EndIf 
%> 


(3) 运行 test3.asp 后 的 结果 如 图 4-3 所 示 。 


| 硬 http//192.16 x | 十 


篇 | 而 htpy/192.1E x 由 士 的 Cd 
9 昌 窗 廿 [gv 'Q| 中 四 丰田 | 加 "| 'Q| Ne 


,加 册 一 一 一 您 的 用 户 名 为 王 小 革 
用 户 名 , EE 先生 ,外 好 
性 别 ，@ 先 生 O 女 二 


] 加速器 屈 下 载 | 加 面 中 避 忆 5 加 连 器 皮下 载 | 可 面 邓 过 马 > 


图 4-2 ”获取 表单 信息 图 4-3 ”使 用 Request.QueryString 得 到 的 结果 


2. Form 集合 读 取 表 单 POST() 方 法 数据 

GET( 方 法 的 优点 是 可 以 方便 地 为 服务 器 端 传递 信息 ， 缺 点 是 不 能 传递 长 而 复杂 的 数 
据 到 服务 器 端 ， 和 否则 会 造成 数据 的 丢失 ， 这 是 因为 某 些 服务 器 会 限制 URL 查询 字符 串 的 
长 度 。 因 此 ， 如 果 要 将 表单 中 的 大 量 数据 发 送 到 服务 器 ， 应 使 用 POST( 方 法。 

POST(0 方 法 在 HITP 请 求 体内 发 送 数据 ， 几 乎 不 限制 发 送 到 Web 服务 器 的 数据 长 度 。 
检索 使 用 POST( 方 法 发 送 的 数据 通常 采用 Request 对 象 的 Form 集合 来 进行 。 

注意 : 

Form 集合 和 Form 表单 的 区 别 是 : Form 表单 是 HTML 提供 的 表单 ， 并 不 是 ASP 特有 
的 ; Form 集合 是 特 指 ASP 的 Request 对 象 获取 信息 的 一 种 方法 。 两 者 的 联系 就 是 ASP 用 
Form 集合 来 获取 Form 表单 中 的 数据 信息 。 

【 例 4-2) 编制 一 个 计算 器 程序 , 可 使 用 POSTO 方 法 接受 HTML 表单 中 的 数值 和 运算 

符 ， 并 将 正确 的 计算 结果 在 当前 页 面 上 显示 出 来 。 
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(1) 创建 一 个 名 称 为 test4.asp 的 网 页 ， 代 码 如 下 所 示 : 


<Form Action=test4.asp Method=post> 
操作 数 1: <Input Type=text Name=numl><br> 
操作 数 2: <Input Type=text Name=num2><br> 
“p> 
选择 你 要 进行 的 操作 <br> 
<Input Type=radio Name=operation Value=" 加 " checked> 加 <br> 
<Input Type=radio Name=operation Value=" 减 > 减 <br> 
<Input Type=radio Name=operation Value=" 乘 "> 乘 <br> 
<Input Type=radio Name=operation Value=" 除 "> 除 <br> 
<Input Type=Submit><Input Type=Reset> 
</Form> 
<Hr> 
<% 
Dim nl,n2,op 
If Request.form.count=0 Then 
Request.form.count 确定 参数 中 值 的 个 数 。 如 果 参 数 未 关联 多 个 值 ， 则 计数 为 1。 如 果 找 不 到 参 
数 ， 计 数 为 0 
Response.end 
End If 
Dl=Requestform("numl 
n2=Request.form("num?2") 
op=Request.form("operation") 
If op=" 加 " Then 
Response.Write nl &"+"&n2&"="&clng(n1)+clng(n?2) 
Elseif op=" 减 " Then 
Response Wiite n1&"-"&n2&"="&cIng(n1)-cing(n?) 
Elseif op=" 乘 " Then 
Response.Write nl &"*"&n2&"="&clng(n1)*clng(n2) 
Elseif op=" 除 " Then 
Response Wiite nl&wn&n2&"="&clng(nl)/clng(n2) 
End If 
%> 


(2) 运行 test4.asp 后 的 结果 如 图 4-4 所 示 。 


bpynszs xj 二 hervwisz x | + 
| 加 名 窗 巴 | 日" 四 Q 


操作 数 1: 12 
操作 数 2: 15 操作 数 2 
人 选择 你 要 进行 的 操作 
0 到 加 
目 诚 诚 
请 乘 
除 La a 
LE CEN (KE 


12416=192 


[ES EPI EE 


图 4-4 RequestForm 集合 获取 使 用 POSTO 方 法 的 表单 中 信息 
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3. ServerVariables 集合 获取 服务 器 端的 环境 变量 


浏览 器 中 浏览 网 页 的 时 候 使 用 的 传输 协议 是 HTTP， 在 HTTP 的 标题 文件 中 会 记录 一 
些 客户 端的 信息 ， 如 客户 的 下 地 址 、 浏 览 器 版 本 及 端口 号 等 。 


有 时 服务 器 端 需要 根据 不 同 的 客户 端 信息 做 出 不 同 的 反映 ， 这 时 候 就 需要 


二 


ServerVariables 集合 获取 所 需 信 息 。 常 用 的 环境 变量 及 说 明 ， 如 表 4-5 所 示 。 


变量 


CONTENT LENGTH 


表 4-5 常用 的 环境 变量 及 说 明 
说 了 明 
客户 端 所 提交 内 容 的 长 度 


CONTENT TYPE 


客户 端 所 提交 内 容 的 类 型 , 如 texthtml。 同 附加 信息 的 查询 一 起 使 用 ， 
如 HTTP 查询 GET、POST 和 PUT 


HTTP_ACCEPT LANGUAGE 


HITP_USER_AGENT 


HITP_ REFERER 


LOCAL ADDR 


PATH INFO 
QUERY _ STRING 


REMOTE ADDR 


REMOTE HOST 


REQUEST_METHOD 
SERVER_NAME 
SERVER_PORT 


浏览 器 用 该 变量 向 服务 器 传送 用 于 显示 内 容 所 使 用 的 语言 ， 格 式 是 
LA-CO 或 LA，LA 是 语言 的 缩写 ，CO 是 国家 的 缩写 。 若 接受 多 种 语 
言 ， 则 用 去 号 分 隔 开 

该 变量 包含 浏览 器 的 名 字 、 版 本 和 平台 

确定 哪个 Web 页 调用 脚本 

返回 接受 请 求 的 服务 器 地 址 。 如 果 在 绑 定 多 个 人 P 地 址 的 多 宿主 机 器 
上 查找 请 求 所 使 用 的 地 址 时 ， 这 条 变量 非常 重要 

客户 端的 路 径 信息 。 可 以 通过 虚拟 路 径 和 PATH INFO 变量 来 访问 脚本 
查询 HTTP 请 求 中 问号 (?) 后 的 信息 

发 出 请 求 的 远程 主机 的 下 地 址 

发 出 请 求 的 主机 名 称 。 如 果 服 务 器 无 此 信息 ， 它 将 设置 为 空 的 

REMOTE ADDR 变量 

用 于 提出 请 求 。 相 当 于 用 于 HTIP 的 GET、HEAD、POST 等 

出 现在 自 引 用 UR 中 的 服务 器 主机 名 、DNS 化 名 或 卫 地 址 

发 送 请 求 的 端口 号 


列举 ServerVariables 集合 包含 的 所 有 成 员 及 其 值 的 方法 如 下 : 


<OL> 


<% For Each Key in Request.ServerVariables%> 


<Li> 


<B><%=Key%>-</B><%=Request.ServerVariables(key)%><BIr> 


<%Next%> 
</OL> 


根据 对 ServerVariables 集合 获取 的 信息 进行 处 理 , 服务 器 端 可 对 不 同 的 客户 端 信息 做 出 
不 同 的 反应 。 例 如 ， 如 果 某 一 计算 机 上 安装 了 多 个 Web 服务 器 ， 也 就 是 有 多 个 域名 同时 对 应 
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着 一 个 卫 地址 ， 这 时 可 以 使 用 SERVER_NAME 属性 来 根据 不 同 的 域名 显示 不 同 的 页 面 。 


【 例 4-3】 读 取 环 境 变量 SERVER_NAME， 然 后 根据 检索 到 的 域名 执行 重 定向 。 
(1) 创建 一 个 名 称 为 Cdx.asp 的 网 页 ， 代 码 如 下 所 示 : 


<% 
Response. Expires=0 "设置 页 面 的 缓存 过 期 时 间 为 0 
Dim strServerName 
此 例 需 有 一 定 的 服务 器 配置 环境 才能 看 到 实际 的 效果 
strServerName=Request.ServerVariables("SERVER NAME 


Select Case strServerName 
Case "www.testl.comy 5 当 访 问 的 域名 为 www-testl.com 时 
Response .Redirect "testl.asp" ' 重 定向 到 testl.asp 文件 
Case "www.test2.com" ' 当 访问 的 域名 为 www.test2.com 时 
Response.Redirect "test2.asp" ' 重 定向 到 test2.asp 文件 
Case Else 
Response.Redirect "notFound.asp" 
End Select 


%> 
(2) 运行 Cdx.asp 后 ，ASP 网 页 会 根据 读 取 的 环境 变量 SERVER_NAME， 打 开 不 同 的 
网 页 ( 当 服 务 器 访问 www.testl.com 网 站 时 ，Cdx.asp 将 自动 打开 testl.asp 页 面 ; 当 服 务 器 
访问 Www.test2.com 网 站 时 ， 则 打开 test2.asp 页 面 ; 如 果 服 务 器 没有 打开 任何 一 个 网 站 ， 
Cdx.asp 页 面 将 重 定向 到 notFound.asp 页 面 )。 


4.3 ”Response 响应 对 象 


Response 对 象 用 于 向 客户 端 浏览 器 发 送 服务 器 端的 数据 。 用户 可 以 使 用 该 对 象 将 服务 
器 端的 数据 用 HTML 的 格式 发 送 到 客户 端的 浏览 器 。 该 对 象 的 功能 与 Request 对 象 的 功能 
相反 ，Request 对 象 用 于 得 到 用 户 提交 的 数据 ， 而 Response 对 象 用 于 将 服务 器 端的 数据 发 
送 到 客户 端的 浏览 器 ， 这 是 实现 网 页 动态 效果 的 基础 。 


4.3.1 Response 对 象 概述 


Response 对 象 发 送 给 用 户 的 信息 包括 直接 发 送信 息 给 客户 端 浏览 器 、 重 定向 浏览 器 到 
另外 一 个 URL 以 及 设置 Cookie 的 值 。 


1. Response 对 象 的 属性 


Response 对 象 也 提供 一 系列 的 属性 , 可 以 读 取 和 修改 , 使 响应 能 够 适应 请 求 。 Response 
对 象 的 属性 及 说 明 ， 如 表 4-6 所 示 。 
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表 4-6 ”Response 对 象 的 属性 及 说 明 
属 性 说 明 


读 / 写 , 布尔 型 , 表明 由 一 个 ASP 页 面 所 创建 的 输出 是 否 一 直 存 放 在 IS 
缓冲 区 ， 直 到 当前 页 面 的 所 有 服务 器 脚本 处 理 完毕 或 Flush0、End0 方 
法 被 调用 。 在 任何 输出 (包括 HTTP 报头 信息 ) 送 往 IS 之 前 ， 这 个 属性 
必须 设置 。 因此 在 .asp 文件 中 , 这 个 设置 应 该 在 <%@LANGUAGE=…%> 
语句 后 面 的 第 一 行 。 在 ASP 3.0 以 及 后 续 版 本 中 默认 设置 缓冲 为 开 
(True)， 而 在 早期 版 本 中 默认 为 关 (False) 


Buffer =True/False 


读 / 写 ， 字 符 型 ， 设 置 这 个 属性 为 Public， 人 允许 代理 服务 器 缓存 页 面 


CacheControl "setting" 

如 为 rivate， 则 禁止 代理 服务 器 缓存 的 发 生 

读 / 写 ， 字 符 型 ， 在 由 服务 器 为 每 个 响应 创建 的 HITP Content-Type 报 
Charset="value” 


头 中 附 上 所 用 的 字符 集 名 称 (如 ISO-LATIN-7) 

读 / 写 ， 字 符 型 ， 指 明 响应 的 HTTP 内 容 类 型 ， 标 准 的 MIME 类 型 (如 
Content Type="MIME-type” text/xml 或 者 Image/gif)。 假 如 省 略 ， 表 示 使 用 MIME 类 型 text/html， 

告诉 浏览 器 所 期 望 内 容 的 类 型 

读 / 写 ， 数 值 型 ， 指 明 页 面 有 效 的 以 分 钟 计算 的 时 间 长 度 ， 假 如 用 户 请 求 
Expires minutes 其 有 效 期 满 之 前 的 相同 页 面 ， 将 直接 读 取 显 示 缓冲 中 的 内 容 ， 这 个 有 效 

期 间 过 后 ， 页 面 将 不 再 保留 在 私有 (用 户 ) 或 公用 (代理 服务 器 ) 缓 冲 中 
Expires Absolute #date[time]# | 读 / 写 , 日 期 时 间 型 ， 指明 当 某 页 面 过 期 和 不 再 有 效 时 的 绝对 日 期 和 时 间 

只 读 ， 布 尔 型 ， 返 回 客户 是 否 仍 然 连接 和 下 载 页 面 的 状态 标志 。 在 当 
IsClientConnected 前 的 页 面 已 执行 完毕 之 前 ， 假 如 一 个 客户 转移 到 另 一 个 页 面 ， 这 个 标 

志 可 用 来 中 止 处 理 (使 用 Response.End 方法 ) 

只 写 ， 字 符 型 ， 创 建 一 个 PICS 报头 并 将 之 加 到 响应 的 HTTP 报头 中 ， 

PICS 报头 定义 页 面 内 容 中 的 词汇 等 级 ， 如 暴力 、 不 良 语言 等 

读 / 写 ， 字 符 型 ， 指 明 发 回 客户 的 响应 的 HTTP 报头 中 表明 错误 或 页 面 

处 理 是 否 成 功 的 状态 值 和 信息 ， 如 200 OK 和 404 Not Found 


2. Response 对 象 的 方法 
表 4-7 所 示 为 Response 对 象 提供 的 方法 , 它 人 允许 直接 处 理 为 返 给 客户 端 而 创建 的 页 面 


PICS “PICS-Label-string” 


Status= ”Code message” 


表 4-7 Response 对 象 的 方法 及 说 明 


通过 使 用 name 和 content 值 ， 创 建 一 个 定制 的 HITP 报头 ， 并 增加 
到 响应 之 中 。 不 能 替换 现 有 的 相同 名 称 的 报头 。 一 旦 已 经 增加 了 一 
个 报头 就 不 能 被 删除 。 这 个 方法 必须 在 任何 页 面 内 容 ( 即 text 和 
HTMIL) 被 发 往 客户 端 前 使 用 


AddHeader(‘name”,”content”) 


*100°* 


法 
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( 续 表 ) 
说 了 明 


AppendToLog("string") 


当 使 用 W3C Extended Log File Format 文件 格式 时 ， 对 于 用 户 请 求 的 
Web 服务 器 的 日 志文 件 增加 一 个 条 目 。 至 少 要 求 在 包含 页 面 的 站 点 
的 Extended Properties 中 选择 URIStem 


在 当前 的 HITP 输出 流 中 写 入 Variant 类 型 的 SafeArray， 而 不 经 过 
BinaryWrite(SafeArray) 任何 字符 转换 。 对 于 写 入 非 字 符 串 的 信息 ， 例 如 定制 的 应 用 程序 请 
求 的 二 进 制 数据 或 组 成 图 像 文件 的 二 进 制 字 节 ， 是 非常 有 用 的 
Gla 当 Response.Buffer 为 True 时， 从 IS 响应 缓冲 中 删除 现存 的 缓冲 页 
面 内 容 。 但 不 删除 HTTP 响应 的 报头 ， 可 用 来 放弃 部 分 完成 的 页 面 
二 让 ASP 结束 处 理 页 面 的 脚本 ， 并 返回 当前 已 创建 的 内 容 ， 然 后 放弃 
页 面 的 任何 进一步 处 理 
Bt 发 送 TS 缓冲 中 所 有 当前 缓冲 页 面 给 客户 端 。 当 Response.buffer 为 
True 时 ， 可 以 用 来 发 送 较 大 页 面 的 部 分 内 容 给 个 别 的 用 户 
通过 在 响应 中 发 送 一 个 302 Object Moved 的 HTTP 报头 ， 指 示 浏 览 
Redirect("url") 


Write("string") 


器 根据 字符 串 url 下 载 相应 地 址 的 页 面 
在 当前 的 HITP 响应 信息 流 和 IS 缓冲 区 写 入 指定 的 字符 , 使 之 成 为 
返回 页 面 的 一 部 分 


3. Response 对 象 的 集合 


表 4-8 所 示 为 Response 对 象 的 唯一 集合 , 该 集合 设置 希望 放置 在 客户 系统 上 的 Cookie 


的 值 ， 它 直接 等 同 于 Request.Cookies 集合 。 


Cookies 


表 4-8 Response 对 象 的 集合 及 说 明 
说 
在 当前 响应 中 ， 发 回 客户 端的 所 有 Cookie 的 值 ， 这 个 集合 为 只 写 


4.3.2 应 用 Response 对 象 


下 面 将 介绍 Response 对 象 在 网 页 设计 中 的 各 种 应 用 , 包括 向 浏览 


区 输出 数据 以 及 实现 网 页 重 定位 等 。 
1. 向 浏览 器 发 送 数据 
在 信息 查询 页 面 中 


序 ， 通 过 用 户 输入 的 查询 条 件 来 查询 数据 ， 并 将 查询 的 数据 结果 返回 
2. 利用 缓冲 区 输出 数据 
当 用 户 使 用 浏览 器 打开 一 个 网 页 时 ， 有 时 需要 等 


发 送 数据 、 利 用 组 


bh, 若 用 户 输入 查询 条 件 并 提交 到 服务 器 时 , 就 需要 编写 一 个 ASP 程 


到 用 户 的 浏览 器 上 。 


待 很 长 的 一 段 时 间 ， 这 是 因为 设置 了 


第 4 章 Request 对 象 与 Response 对 象 = 101= 


缓冲 页 面 输出 。 页 面 缓冲 利用 Response 对 象 在 缓冲 区 输出 数据 。 下 面 介绍 Response 对 象 
的 一 些 属性 : 

e Buffsr 属性 

在 ASP 程序 中 ， 可 以 为 页 面 在 服务 器 端 设 置 一 个 缓存 。 缓 存 区 是 一 个 存储 区 ， 它 可 以 
在 其 释放 数据 之 前 容纳 该 数据 一 段 时 间 ， 缓 冲 区 的 优点 在 于 它 的 行为 可 以 控制 。 

设置 缓存 后 ， 服 务 器 端 可 减少 与 客户 端 连接 的 次 数 而 提高 整体 的 响应 速度 ， 并 可 在 满 
足 某 些 条 件 (如 脚本 处 理 不 正确 或 用 户 没有 适当 的 安全 证 书 ) 时 撤销 已 经 处 理 的 结果 ， 而 不 
会 出 现 响 应 完成 一 部 分 就 停止 的 状况 。 

缓存 功能 的 打开 和 关闭 是 通过 Response 对 象 的 Buffer 属性 完成 的 。 若 将 Buffer 属性 
设 为 False， 则 关闭 缓存 功能 ，Web 服务 器 在 处 理 页 面 时 会 随时 返回 HTML 和 脚本 结果 ; 
若 将 Buffer 属性 设 为 Tmue， 则 打开 缓存 功能 ，Web 服务 器 在 处 理 页 面 时 会 将 结果 暂时 存放 
到 缓存 中 ， 当 全 部 脚本 处 理 完 后 ， 或 者 遇 到 End0 或 Flush0 方 法 时 ， 才 将 缓存 中 的 内 容 发 送 
到 浏览 器 。 

Buffer 属性 的 更 改 必须 放 在 HTML 或 脚本 输出 之 前 。 这 是 因为 在 任何 内 容 发 送 到 浏览 
器 后 ，Buffer 属性 值 就 不 能 再 更 改 ， 否 则 会 引起 错误 。 


注意 : 
如 果 在 ASP 文件 中 的 任意 地 方 用 到 Redirect() 方 法 重 定向 页 面 ， 必 须 在 文件 开头 关闭 
Buffer 属性 ， 否 则 就 会 报错 。 


【 例 4-4】 创 建 一 个 用 于 测试 Buffer 属性 的 ASP 应 用 程序 ， 该 程序 会 在 浏览 器 上 从 1 
显示 到 255， 并 且 每 输出 一 个 数字 就 自动 换 一 行 。 
(1) 创建 一 个 名 称 为 test5.asp 的 网 页 ， 代 码 如 下 所 示 : 


<html> 
<head> 1=255 
<title> 测 试 Buffer 属性 的 例子 </title> 
</head> 
<body> 
<% 

For i=] to 255 1 为 1 到 255 中 的 一 个 值 
Response.write(i&"<BR>") 输出 i 的 值 并 换行 
next 

%> 
</body> 


(2) 运行 test5.asp 后 的 结果 如 图 4-5 所 示 。 
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亡 加 器 此 下载 |[ 习 曾 中 局 @? 交加 二 器 此 下 载 | 有 定员 矶 @? 
图 4-5 测试 Buffer 属性 的 ASP 应 用 程序 


注意 : 
【 例 4-4】 创 建 的 程序 脚本 在 屏幕 上 显示 1 一 255 的 数字 ， 并 且 每 输出 一 个 数字 就 换 一 
行 。 每 一 句 命令 执行 后 ， 结 果 都 会 立即 显示 。 如 果 把 Buffer 属性 设置 为 True， 那 么 服务 器 
端的 Response 要 写 入 缓存 区 中 ， 当 脚本 被 处 理 完成 后 再 释放 给 用 户 ; 如 果 把 Buffer 属性 设 
置 为 False， 则 在 服务 器 处 理 脚 本 时 ，HTML 要 顺序 地 发 给 客户 程序 (上 面 的 实例 就 是 默认 
地 使 Buffer 属性 为 False)。 


e ”ContentType 属性 

ContentType 属性 指定 响应 的 HTTP 内 容 类 型 。 其 语法 结构 如 下 : 

Response.ContentType [=ContentType] 

ContentType 字符 串通 常 被 格式 化 为 类 型 / 子 类 型 ， 其 中 类 型 是 常规 内 容 范畴 ， 子 类 为 
特定 内 容 类 型 。 如 果 未 指定 ContentType， 默 认为 text/html。 

Web 服务 器 将 某 个 文件 发 送 到 浏览 器 时 , 它 会 将 文件 的 MIME 类 型 告诉 浏览 器 , 浏览 
器 会 根据 文件 的 MIME 类 型 和 扩展 名 来 确定 是 自己 本 身 就 能 显示 , 还 是 必须 调用 其 他 应 用 
程序 。 

注意 : 

MIME(Multipurpose Intemet Mail Extensions) 即 多 用 途 Intermet 邮件 扩展 ,作为 对 SMTP 
协议 的 扩充 , MIME 规定 了 通过 SMTP 协议 传输 非 文 本 电子 邮件 附件 的 标准 。 目前 , MIME 
的 用 途 早已 经 超越 了 收发 电子 邮件 的 范围 ， 成 为 在 Intemet 上 传输 多 媒体 信息 的 基本 协议 
之 一 ， 是 Intemet 上 识别 文件 类 型 的 标准 方法 。 

e Expires 属性 

Expires 属性 指定 了 在 浏览 器 上 缓冲 存储 的 页 面 距 过 期 还 有 多 少时 间 。 如果 用 户 在 某 个 
页 面 过 期 之 前 又 回 到 此 页 ， 就 会 显示 缓冲 区 中 的 版 本 。 其 语法 结构 如 下 : 


Response.Expires [= 时 间 ] 
时 间 参 数 设置 网 页 距 过 期 还 有 多 少 分 钟 。 如 果 将 此 参数 设置 为 0， 可 使 缓存 的 页 面 立 
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即 过 期 ， 这 样 客户 端 每 次 都 将 从 服务 器 上 得 到 最 新 的 页 面 。 

e@ Expires Absolute 属性 

Expires Absolute 属性 指定 缓存 于 浏览 器 中 的 页 面 的 确切 到 期 日 期 和 时 间 。 在 未 到 期 之 
前 ， 若 用 户 返回 到 该 页 ， 该 缓存 的 页 就 显示 。 如 果 未 指定 时 间 ， 该 主页 在 当天 午夜 到 期 
如 果 未 指定 日 期 ， 则 该 主页 在 脚本 运行 当天 的 指定 时 间 到 期 。 其 语法 结构 如 下 : 


Response.ExpiresAbsolute [= [日 期 ] [时 间 ] ] 


例如 ， 以 下 代码 指定 页 面 在 2016 年 7 月 31 日 下 午 16 时 17 分 15 秒 到 期 。 


<% Response.ExpiresAbsolute=#July 31,2016 16:17:15# %> 


注意 : 

如 果 Expires 属性 和 ExpiresAbsolute 属性 在 一 个 页 面 上 设置 了 多 次 ，ASP 会 自动 选择 
使 用 最 短 的 设置 时 间 。 

e Status 属性 

Status 属性 用 来 传递 服务 器 HITP 响应 的 状态 。 这 个 属性 可 以 用 来 处 理 HITP 请 求 后 
服务 器 返回 的 错误 。 

服务 器 返回 的 状态 码 由 3 位 数字 构成 ， 可 以 根据 状态 码 确定 服务 器 是 如 何 处 理 HTTP 
请 求 的 。 在 调试 过 程 或 向 客户 端 返回 有 关 错 误 信息 时 ，Status 属性 特别 重要 。 表 4-9 对 常 
见 的 状态 码 做 了 说 明 。 


表 4-9 HTTP 响应 状态 码 


本 状 ”大 状态 

200 OK | ao | Unauthorized 
201 Created Forbidden 
202 Accepted | 0 Page not found 
204 No content Internet server error 
301 Moved permanently 501 Not implemented 
302 Moved temporanial 502 Bad gatewa: 
304 Not modified Service unavailable 
400 Bad request | | 

e Charset 属性 

Charset 属性 将 字符 集 名 称 附 加 到 Response 对 象 中 ContentType 标题 的 后 面 。 其 语法 


结构 如 下 : 
Response.Charset (字符 集 ) 


对 于 不 包含 Response.Charset 属 性 的 ASP 页 , ContentType 标 题 将 为 content-type:text/html， 
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如 果 ASP 文件 包含 了 下 面 一 名 脚本 : 
<% Response.Charset("ISO-LATIN-7") %> 
则 ContentType 标题 将 为 : 


content-type:text/html:;charset=ISO-LATIN-7 


注意 : 

无 论 字符 串 表示 的 字符 集 是 否 有 效 ， 该 功能 都 会 将 其 插入 ContentType 标题 中 。 如 果 
某 个 页 包含 多 个 含有 Response.Charset 的 标记 ， 则 每 个 Response.Charset 都 将 替代 前 一 个 
CharsetName。 这 样 , 字符 集 将 被 设置 为 该 页 中 Response.Charset 的 最 后 一 个 实例 所 指定 值 。 


e IsClientConnected 属性 
IsClientConnected 属性 是 只 读 属 性 ， 它 用 来 指示 自 上 次 调用 Response.Write 之 后 ， 客 
户 端 是 否 与 服务 器 相连 。 其 语法 结构 如 下 : 


Response.IsClientConnected( ) 


IsClientConnected 属性 允许 用 户 在 客户 端 与 服务 器 没有 连接 的 情况 下 有 更 多 的 控制 。 
例如 ， 在 从 客户 端 提 出 请 求 起 到 服务 器 做 出 响应 ， 期 间 要 用 去 很 长 一 段 时 间 的 情况 下 ， 这 
就 可 以 确保 在 继续 处 理 脚本 之 前 客户 端 仍 是 连通 的 。 

e ”CacheControl 属性 

CacheControl 属性 用 来 控制 是 否 允 许 代理 服务 器 高 速 缓存 。CacheControl 属性 的 默认 
值 为 Private， 它 可 以 阻止 代理 服务 器 高 速 缓存 页 面 信息 。 当 属性 值 为 Public 时 ， 代 理 服务 
器 可 以 缓冲 由 ASP 产生 的 输出 。 其 语法 结构 如 下 : 


Response.CacheControl [= 缓冲 存储 器 控制 标题 ] 
例如 ， 设 置 网 页 的 缓存 时 间 并 控制 它 在 浏览 器 的 显示 内 容 的 代码 如 下 : 


<% 
Response.Buffer=TRUE ”' 将 此 页 面 设 为 缓存 页 ， 服 务 器 暂 不 将 显示 内 容 发 送 到 浏览 器 
Response.Expires=60 ' 设 置 缓存 过 期 时 间 为 60 分 钟 
%> 
设置 缓存 时 间 为 一 个 小 时 的 第 一 段 测试 的 语句 。<Br> 
<% 
Response.Clear "清除 缓存 中 的 所 有 内 容 
Response Expires=0 "设置 缓存 过 期 时 间 为 0 分 钟 
%> 
第 二 段 会 被 显示 的 测试 语句 。 
<% 
Response Flush ' 将 缓存 区 的 内 容 立 即 传送 到 浏览 器 
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%> 
<% 

eer "Web 服务 器 停止 当前 的 脚本 处 理 并 返回 当前 结果 
%> 


不 会 被 送 往 浏览 器 显示 的 第 三 段 测试 语句 。 
3. 实现 网 页 的 重 定位 
在 ASP 应 用 程序 中 ， 使 用 Response 对 象 的 方法 可 以 根据 客户 端 不 同 的 请 求 输出 不 同 
的 返回 结果 。 
e Write() 方 法 
Write() 方 法 是 Response 对 象 中 最 常用 的 方法 之 一 , 它 可 以 把 变量 的 值 发 送 到 用 户 端的 
前 页 面 。Write0 方 法 的 功能 很 强大 ， 几 乎 可 以 输出 所 有 的 对 象 和 数据 。 
在 Write() 方 法 中 可 以 嵌入 任何 HTML 标记 ， 只 要 该 标记 是 合法 的 ， 如 下 例 将 输出 绿 
色 的 汉字 和 一 条 水 平 线 : 


Response. Write "<Font color=green>" 
Response.Write "欢迎 光临 ! "&"<Br>" 
Response. Write "</Font>" 

Response. Write "<Hr>" 


将 HTML 标记 与 ASP 中 的 变量 恰当 地 结合 使 用 ， 可 使 程序 更 简洁 易 读 ， 如 下 例 是 根 
据 Request 对 象 获取 的 数据 创建 表格 的 一 行 信息 : 

<%Response. Write "<Tr><Td>"&Request.Form("strUserName")&"</Td><Td>"_ 

& Request. Form("intAge")&"</Td></Tr>" % 

e@ Clear() 方 法 

Clear() 方 法 用 于 清除 缓存 区 的 所 有 HTML 输出 , 但 它 只 删除 响应 正文 而 不 删除 响应 标 
题 。 在 服务 器 上 的 程序 产生 错误 时 ， 可 用 Clear0 方 法 处 理 错误 情况 。 


注意 : 

Clear() 方 法 仅 当 Response 对 象 的 Buffer 属性 设 为 True 时 才 起 作用 。 如 果 Buffer 属性 
未 设 为 True， 则 Clear() 方 法 将 导致 运行 时 错误 。 

。 Flush0 方 法 

调用 Flush0 方 法 时 ,缓存 中 的 所 有 内 容 会 立即 发 送 到 客户 端 。 与 Clear() 方 法 一 样 ， 如 
果 Response 对 象 的 Buffer 属性 没有 被 设 为 True 时 ， 则 Flush() 方 法 同样 会 产生 运行 错误 。 

e End() 方 法 

End0 方 法 使 服务 器 停止 当前 脚本 的 处 理 并 返回 当前 结果 。 如 果 Response 对 象 的 Buffer 
属性 设 为 True， 则 End0 方 法 立即 把 缓存 中 的 内 容 发 送 到 客户 端 并 清除 缓存 。 

因此 ， 若 想 取 消 向 客户 端的 所 有 输出 ， 可 以 先 用 Clear0 方 法 清除 缓存 ， 再 用 End() 方 
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法 停止 脚本 的 处 理 。 

@ Redirect( 方 法 

在 普通 网 页 中 ， 可 以 使 用 超 链接 的 方式 引导 访问 者 跳 转 到 另 一 个 页 面 ， 但 这 个 过 程 需 
要 访问 者 单 击 一 个 超 链接 才 可 以 进行 .Response 对 象 的 Redirect0 方 法 则 可 以 自动 完成 页 面 
间 的 跳 转 ， 而 访问 者 几乎 不 会 感觉 出 来 。 

【 例 4-5】 创 建 一 个 搜索 页 面 ， 如 图 4-6 所 示 。 使 用 Response.Redirect0 方 法 编写 程序 
来 完成 不 同 搜索 引擎 的 转向 定位 。 

(1) 创建 一 个 名 称 为 test6.asp 的 网 页 ， 代 码 如 下 所 示 : 


<Form Method="get" Action="test6.asp"> 
<Input Type="Text" Name="SearchStrings"> 
<Input Type="Submit" Name="Search" Value=" 搜 索 "> 
<p> 
<Input Name="goURL" Type="Radio" Value=" 百 度 " Checked> 百 度 
<Input Name="goURL" Type="Radio" Value="Yahoo">Yahoo 


</Form> 
<% 
Response.Buffer=True 打开 缓存 功能 
Dim strUrlRedirTo,strSearchStrings 
strSearchStrings=Trim(Request.QueryString("SearchStrings")) ” ”获取 和 欲 搜 索 的 关键 字 
If (Len(strSearchStrings)) Then 
strSearchStrings=Server.UrlEncode(strSearchStrings) ' 对 字符 串 按 URL 规则 进行 编码 


If Request.QueryString("goURL")=" 百 度 " Then 
strUrlRedirTo="http://www.baidu.com/baidu?word="&strSearchStrings "产生 跳 转 的 URL 
Endif 
If Request.QueryString("goURL")="Yahoo" Then 
strUrlRedirTo="http://cn.websearch.yahoo.com/search/web_cn?p="&strSearchStrings 
EndIf 
Response.Redirect strUrlRedirTo 卡 转 语句 
EndIf 
%> 
(2) 运行 test6.asp 后 的 结果 如 图 4-6 所 示 。 在 页 面 的 文本 框 中 输入 ASP， 并 选择 “ 百 
度 ” 单 选 按 钮 ， 然 后 单 击 “搜索 ”按钮 ，ASP 页 面 将 自动 打开 如 图 4-7 所 示 的 页 面 ， 通 过 
百度 搜索 引擎 搜索 关键 字 ASP。 
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图 4-6 页 面 效果 图 4-7 搜索 结果 
e BinaryWrite() 方 法 
BinaryWrite() 方 法 不 经 任何 字符 转换 就 将 指定 的 信息 写 到 HTTP 输出 。 该 方法 用 于 
非 字 符 串 信息 ， 如 客户 端 应 用 程序 所 需 的 二 进 制 数据 ， 常 见 的 有 图 形 、 声 音 或 影像 等 。 
语法 结构 如 下 : 


nH 


并 灿 


Response.BinaryWrite 输出 数据 


如 果 有 一 个 产生 字 节 数组 的 对 象 ， 就 可 调用 BinaryWrite() 方 法 将 这 些 生成 的 字 节 发 送 
给 客户 端 应 用 程序 ， 如 下 例 所 示 : 
<% 
Set BinGen = Server.CreateObject(MY .BinaryGenerator) 
Pict = BinGen.MakePicture 
Response.Binary Write Pict 
%> 
e AddHeader() 方 法 
AddHeader() 方 法 使 用 指定 的 值 添加 HIML 标题 。 该 方法 常常 向 响应 添加 新 的 HITP 
标题 ， 它 并 不 替代 现 有 的 同名 标题 。 一 旦 标题 被 添加 ， 将 不 能 删除 。 其 语法 结构 如 下 ; 


Response.AddHeader 标题 变量 名 称 , 初始 值 


为 避免 命名 不 明确 ， 标 题 变量 名 称 中 不 能 包含 任何 下 面 线 字符 “_”。 由 于 HTTP 协 
议 要 求 所 有 的 标题 都 必须 在 内 容 之 前 发 送 ， 所 以 必须 在 任何 输出 (例如 由 HTML 或 Write() 
方法 生成 的 输出 ) 发 送 到 客户 端 之 前 在 脚本 中 调用 AddHeader0 方 法 ， 但 当 Buffer 属性 被 设 
置 为 True 时 例外 。 若 输出 被 缓存 ， 则 可 以 在 脚本 中 的 任何 地 方 调用 AddHeader0 方 法 ， 只 
要 它 在 Flush() 方 法 之 前 执行 即 可 。 

e AppendToLog() 方 法 

AppendToLog( 方 法 在 Web 服务 器 日 志文 件 的 末尾 增加 一 项 ， 每 项 内 容 最 多 80 个 字 
符 。 可 以 在 脚本 的 同一 部 分 多 次 调用 该 方法 。 每 次 调用 该 方法 时 ， 都 会 在 当前 条 目 中 添加 
指定 的 字符 串 。 其 语法 结构 如 下 : 


Response.AppendToLog 字符 串 
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输出 的 字符 串 为 要 添加 到 日 志文 件 中 的 文本 。 由 于 日 志文 件 的 每 项 是 以 逗号 分 隔 的 ， 
所 以 字符 串 的 内 容 中 不 能 含有 喜 号 ， 字 符 串 最 大 长 度 为 80 个 字符 。 


注意 : 
服务 器 日 志文 件 是 记载 访问 情况 的 纯 文本 文件 , 默认 放置 于 Windows/System32/LogFiles 
文件 夹 中 ， 可 以 使 用 任何 文本 编辑 器 读 写 。 


4.4 在 网 页 中 使 用 Cookie 


Cookie 是 一 种 标记 ， 由 Web 服务 器 嵌入 用 户 浏览 器 中 来 标识 用 户 。 当 下 次 同一 个 浏 
览 器 请 求 网 页 时 ， 将 把 以 前 从 Web 服务 器 得 到 的 Cookie 再 传送 给 服务 器 。Cookie 允许 一 
个 用 户 关 联 一 组 信息 。Cookie 被 保存 为 简单 的 文本 文件 ， 其 名 称 标识 用 户 和 站 点 ， 可 以 用 
任何 文本 编辑 器 打开 。 


4.4.1 Cookie 的 设置 


当 访 问 者 在 某 个 网 站 登录 后 ， 该 网 站 将 会 提示 是 否 保留 Cookies 以 及 保留 多 长 时 间 。 
而 Cookie 是 存储 在 计算 机 中 的 一 个 临时 文件 , 它 包 括 了 用 户 在 登录 时 的 用 户 名 及 密码 等 相 
关 信 息 。 该 文件 有 一 个 生命 期 限 , 其 存在 的 期 限 由 程序 设计 者 在 编写 程序 时 设 定 。 在 Cookie 
文件 生命 期 限 到 期 的 时 候 ， 就 会 从 计算 机 中 自动 消失 。 

1. 定义 Cookie 

cookie 是 所 定义 的 Cookie 的 名 称 ， 而 value 则 是 给 这 个 变量 赋予 的 初始 值 。 如 果 设 计 
者 在 定义 Cookie 变量 时 使 用 了 key， 则 表示 这 个 Cookie 变量 是 一 个 字典 。 所 谓 字典 ， 就 是 
有 相同 变量 名 的 一 批 不 同 的 Cookie 变量 , 这 些 变量 通过 不 同 的 关键 字 (key) 来 存储 值 和 相互 
区 分 。 

Cookie 变量 的 一 个 显著 特征 是 其 具有 一 定 的 生命 期 限 。 管 理 和 定义 不 同 的 Cookie 变 
量 使 其 生命 期 限 不 同 , 是 通过 某 些 Cookie 变量 的 属性 完成 的 。 由 于 不 是 放置 在 服务 器 端的 
数据 库 中 ，Cookie 变量 就 有 可 能 由 于 种 种 原因 而 遭 到 破坏 ， 为 了 防止 其 他 网 页 和 网 站 所 设 
置 的 Cookie 与 自己 的 相同 而 破坏 了 已 经 定义 的 Cookie 变量 ， 设 计 者 可 以 使 用 一 些 其 他 
Cookie 变量 的 属性 来 进一步 管理 Cookie。 定 义 Cookie 的 一 般 格 式 如 下 : 


Response.Cookies(cookie)[(key)|.attribute]=value 

以 上 格式 的 意义 是 在 客户 端 计算 机 上 写 入 一 个 Cookie 变量 ， 该 变量 的 名 称 为 cookie， 
其 变量 值 为 value。 若 该 变量 已 经 存在 ， 则 直接 写 入 value 值 ， 若 该 变量 不 存在 ， 就 要 创建 
一 个 新 的 变量 ， 其 名 称 为 cookie， 值 为 value。Cookie 变量 引用 的 一 般 格式 如 下 : 
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Response.Cookies(cookie)=value 
例如 以 下 程序 代码 : 
<% 
Response.Cookies("Username")="Luck" 
Response.Cookies("Date") Expires="July 22,2016" 
%> 
以 上 代码 的 意思 是 定义 两 个 Cookie 变量 , 在 客户 端 写 入 两 个 变量 , 其 中 一 个 变量 名 称 
为 Usemame， 值 为 Luck; 另 一 个 变量 名 称 为 Date， 值 为 Jaly 22,2016。 所 定义 的 Cookie 
变量 都 存储 在 客户 端 计算 机 硬盘 中 一 个 名 称 为 Cookie 的 目录 中 。 


注意 : 
若 所 设置 的 Cookie 变量 在 客户 端 计算 机 中 已 经 存在 ， 并 且 其 各 种 参数 均 相 同 ， 那 么 原 
有 的 Cookie 变量 将 被 覆盖 。 


2. 定义 Cookie 变量 的 生命 期 限 

可 以 通过 设置 Cookie 变量 的 Expires 属性 设置 它 的 生命 期 限 。 若 在 一 次 客户 访问 结束 
后 ， 所 设置 的 Cookie 变量 依然 留 在 客户 端 计 算 机 中 并 且 有 效 ， 那 么 必须 设置 Cookie 变量 
的 Expires 属性 值 ， 若 不 设置 ， 则 在 一 次 会 话 结束 后 ， 所 有 程序 中 设置 的 Cookie 变量 都 会 
过 期 失效 。 

Time 属性 值 为 一 个 时 间 常 数 ， 按 照 VBScript 的 约定 ， 时 间 常 数 一 般 用 两 个 “#” 符 号 
界定 。Expires 属性 引用 的 一 般 格式 如 下 : 


Response.Cookies(cookie).Expires=Time 
例如 ， 下 面 程序 中 的 一 个 循环 ， 将 所 有 Cookie 变量 的 过 期 日 期 都 设置 为 2016/5/1。 


<% 
For Each Cookies in Response.Cookies 
Response.Cookies("Date").Expires=#May 1,2016# 
%> 


3. 定义 Cookie 变量 的 作用 域 
于 Cookie 变量 使 用 得 非常 广泛 , 各 种 不 同 的 网 站 都 在 客户 端的 计算 机 上 写 下 了 各 种 
各 样 的 Cookie 变量 和 Cookie 值 。 但 是 Cookie 变量 只 能 定义 和 赋值 ， 而 不 能 追加 ， 若 名 称 
相同 ， 则 会 将 原 有 的 数据 覆盖 。 

要 保证 不 同 网 站 的 Cookie 不 会 互相 冲突 及 同一 个 网 站 内 的 Cookie 不 会 相互 冲突 ， 用 
户 可 以 使 用 Cookie 变量 的 Domain 属性 和 Path 属性 : 

e Domain 属性 用 于 设置 所 定义 的 Cookie 变量 的 域 , 设置 不 同 变量 的 域 可 以 防止 不 同 
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网 站 之 间 的 Cookie 互相 冲突 。 

e Path 属性 用 于 设置 所 定义 的 Cookie 变量 的 文件 路 径 ， 此 路 径 相 当 于 服务 器 主 目录 
而 言 。 一 般 一 个 网 站 的 不 同 开发 组 会 使 用 不 同 的 文件 路 径 ， 这 样 可 以 避免 Cookie 
的 互相 冲突 。 

Domain 属性 和 Path 属性 的 定义 格式 如 下 : 


Response.Cookies(cookie).Domain=domainname 

Response.Cookies(cookie).Path=pathname 

域 就 是 一 个 网 站 域 ， 而 地 址 则 是 该 文件 的 相对 地 址 。 如 下 面 程序 定义 了 一 个 Cookie 
变量 ， 用 于 几 类 用 户 的 名 称 ， 并 设置 了 域 和 地 址 属性 。 


<% 
Response.Cookies("Customer")="Du" 
Response.Cookies("Customer").Expires=#May 1,2022# 
Response.Cookies("Customer").Domain="http://www.xxx.com" 
Response.Cookies("Customer").Path="/wwwroot/hsm" 

%> 


一 旦 程序 中 设置 了 变量 的 域 和 路 径 , 若 想 修改 文件 夹 名 称 , 则 还 要 在 程序 中 将 其 找到 ， 
将 域 和 路 径 修 改过 来 。 为 了 提高 工作 效率 ， 用 户 可 以 使 用 以 下 程序 的 方法 实现 动态 生成 域 
和 地 址 : 


<% 
Dim getdomain 
Dim getpath 
Dim position 
Getdomain=Request.servervariables("server_name") 
Position=instrrev(path,"/") 


Response.Cookies 
Response.Cookies("Customer")="Du" "记录 用 户 名 
Response.Cookies("Customer").Expires=#May 1,2022# "记录 当前 日 期 
Response.Cookies("Customer").Domain=getdomain "记录 当前 网 址 
Response.Cookies("Customer").Path=getpath "记录 路 径 

%> 


4.4.2 Cookie 的 使 用 


下 面 将 介绍 使 用 Cookie 字典 和 读 取 Cookie 值 的 方法 与 实例 。 

1. 使 用 Cookie 字典 

Cookie 字典 就 是 在 客户 端 存储 的 一 张 二 维 关系 表 ， 该 表 的 名 字 是 定义 的 Cookie 字典 
的 名 字 ， 引 用 同一 个 字典 的 不 同 变量 所 设置 的 key 值 ， 不 同 的 key 值 对 应 不 同 的 变量 。 因 
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此 , 字典 的 名 字 和 每 个 key 值 构成 了 一 个 完整 的 Cookie 变量 名 。 定 义 一 个 字典 并 指定 其 中 
所 包含 的 变量 的 格式 如 下 : 


Response.Cookies(cookie)(key)=value 


key 被 称 为 关键 字 ， 用 于 表示 同一 个 字典 中 不 同 的 变量 ， 如 下 面 的 程序 中 定义 了 一 个 
客户 信息 的 字典 customer， 并 在 这 个 字典 中 定义 了 若干 个 与 customer 相关 的 变量 。 


<% 
Response.Cookies("customer")("name")="Du" "记录 用 户 名 
Response.Cookies("customer")("age")="28" "记录 用 户 年 龄 
Response.Cookies("customer")("mail")="xxx(@sina.com" "记录 用 户 电子 邮箱 地 址 
%> 


以 上 字典 customer 中 ， 定 义 了 3 个 变量 : name、age 和 mail。 就 像 数据 库 表 中 的 不 同 
字段 ， 每 个 Cookie 变量 的 值 相当 于 每 个 字段 的 值 。 
若 用 户 分 不 清 一 个 Cookie 是 一 个 字典 还 是 一 个 变量 时 ， 可 以 用 haskeys 属性 判断 : 


<% 
If not response.cookies("customer").haskeys then "判断 haskeys 属性 
Response.write" 这 不 是 一 个 字典 " 输出 文字 "这 不 是 一 个 字典 " 
Else 
Response.write" 这 是 一 个 字典 " 输出 文字 "这 是 一 个 字典 " 
Endif 
%> 


对 于 一 个 字典 ， 可 以 通过 循环 来 引用 其 中 所 包含 的 所 有 变量 及 其 值 。 以 下 程序 将 
customer 字典 的 变量 全 部 置 空 ; 


<% 
If not response.cookies("customer").haskeys then 
Response.cookies("customer")="" 
Else 
For each key in response.cookies("customer") 
Response.cookies("customer")(key)="" 
Next 
Endif 
%> 


2. 读 取 Cookie 值 


cookie 是 需要 读 取 Cookie 的 名 称 ; key 选项 的 意义 与 定义 Cookie 时 相同 ， 表 示 某 个 
Cookie 字典 中 的 关键 字 ; 属性 attribute 只 有 一 个 haskeys 的 值 ， 用 来 判断 一 个 Cookie 是 否 
为 字典 ， 用 法 与 定义 Cookie 时 完全 相同 。Request 对 象 负责 从 客户 端 把 Cookie 读 取出 来 。 
Response 读 取 Cookie 的 一 般 格式 如 下 : 
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Response.Cookies(cookie).[(key)l.attribute] 

Cookie 字典 中 的 变量 和 值 可 以 通过 引用 关键 字 来 读 取 ， 若 一 个 字典 不 进行 关键 字 引 
用 ,而 直接 使 用 Request.Cookies(cookie)， 那 么 所 有 的 关键 字 都 将 作为 返回 值 。 下 面 的 程序 
是 一 个 Cookie 字典 Du 有 两 个 关键 字 age 与 sex， 则 使 用 Response.Cookies(Du) 返 回 : 
age=28&male。 


<% 
Response.Cookies("Customer")("age")="28" 
Response.Cookies("Customer")("sex")="male" 
Response.write request.cookies("Du") 

%> 


当 Cookie 在 字典 Du 中 ， 先 定义 关键 字 age， 后 定义 关键 字 sex, 但 是 在 采用 这 种 方法 
读 取 Cookie 时 ， 先 读 取 sex， 后 读 取 age， 顺 序 是 颠倒 的 。 若 客户 端 返 回 了 两 个 相同 名 称 
的 Cookie， 那 么 Request 对 象 将 只 读 取 其 中 目录 层次 比较 深 的 Cookie。 例 如 ， 在 名 称 相同 
时 ， 一 个 Cookie 的 path 属性 设置 为 wwwrootasp， 而 另 一 个 Cookie 的 path 属性 设置 为 
wwwroot/asp/asppages/， 那 么 最 终 Request 对 象 读 取 到 的 Cookie 将 是 后 者 。 

【 例 4-6】 使 用 Cookie 技术 在 客户 端 记 录 下 客户 端的 计算 机 名 ， 然 后 写 入 一 个 Cookie 
字典 ; 并 设置 一 个 记录 访问 次 数 的 关键 字 , 把 用 户 的 访问 次 数 设置 为 1, 也 写 入 一 个 Cookie 
字典 。 在 用 户 下 面 的 访问 中 ， 服 务 器 读 取 用 户 计算 机 的 Cookie， 判 断 出 计算 机 名 ， 并 把 访 
问 次 数 加 1 后 显示 在 浏览 器 中 ， 如 图 4-8 所 示 。 

(1) 创建 一 个 名 称 为 test7.asp 的 网 页 ， 代 码 如 下 所 示 : 


<% 
dim servername 
dim number 
servername=request.cookies("customer")("servername") 
number=request.cookies("customer")("number") 
if servername="" then 
servername=request.servervariables("server_name") 
response.cookies("customer")("servername")=servername 
response.cookies("customer")("number")=1 
response.cookies("customer").expires=#Oct 1,2022# 
response.cookies("customer").domain=http://www.xxx.com 
else 
response.cookies("customer")("number")=number+1 
response.write" 欢 迎 你 "&servermame&" 这 是 你 的 第 "&number&" 次 访问 。" 
endif 
%> 


(2) 运行 test7.asp 后 的 网 页 效果 如 图 4-8 所 示 。 


第 4 章 ， Request 对 象 与 Response 对 象 *。113。 


| 一 je“[ 


S 加 上 Gh 


欢迎 你 192. 168.1. 77 这 是 你 的 第 6 次 
访问 。 


欢迎 你 192. 168. 1. 77 这 是 你 的 第 1 次 


访问 。 


3 jn 二 此 T 载 | 国 而 路 局 Q 3 加 加 各 此 下 载 | 本 春 咖 局 Q 


图 4-8 ”利用 Cookie 技术 实现 网 页 计数 器 效果 


当 用 户 第 一 次 访问 网 站 时 ， 在 客户 端 并 没有 要 求 customer 这 个 Cookie 字典 ， 因 此 使 
用 该 字典 获取 的 两 个 参数 servemame 和 number 的 值 都 为 定 。 这 时 对 该 字典 进行 初始 化 ， 
当 用 户 再 次 连接 访问 时 , 客户 端 已 经 有 了 这 个 字典 。 为 了 能 长 期 监视 该 客户 端的 访问 情况 ， 
把 这 个 字典 的 生命 期 限 设置 为 2022 年 10 月 1 日 。 为 了 防止 其 他 网 站 将 该 Cookie 覆盖 , 还 
应 当 设 置 该 Cookie 字典 的 domain 域 属性 。 


45 习 题 


4.5.1 填空 题 
对 象 的 功能 则 


1. 对 象 用 于 接收 客户 端 浏览 器 提交 的 数据 ， 而 
是 将 服务 器 端的 数据 发 送 到 客户 端 浏览 器 。 

2. 如 果 在 Request 对 象 中 没有 指定 准确 的 集合 名 称 ，ASP 会 自动 按 QueryString、 

和 ServerVariables 的 顺序 来 搜索 确定 数据 的 获取 方法 。 

3. 当 HTML 表单 用 方法 向 ASP 文件 传递 数据 时 , 用 户 提交 的 数据 将 被 附 
在 URL 的 查询 字符 串 中 一 起 被 提交 到 服务 器 端 指定 的 文件 中 。 

4. Response 的 方法 可 以 自动 完成 页 面 间 的 跳 转 。 

5. 缓存 功能 的 打开 和 关闭 是 通过 Response 对 象 的 


属性 完成 的 。 


4.5.2 选择 题 


1. 下 面 集合 可 以 获取 查询 字符 串 中 信息 的 是 (  )。 
A. Response(" 元 素 名 ") B. Request(" 元 素 名 ") 
C. Request.Form(" 元 素 名 ") D. Request.QueryString(" 元 素 名 ") 
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2. 下 面 语句 执行 完毕 后 ， 页 面 上 显示 内 容 是 (  )。 


<% Response. Write "<a hre 全 http://www.sina.comcn> 新 浪 </a>" %> 


A. 新 浪 B. <a hre 人 http://www.sina.com.cn> 新 浪 </a> 
C. 新 浪 ( 超 链接 ) D. 错误 信息 

3. Request 对 象 的 QueryString、Form、Cookies 集合 获取 的 数据 子 类 型 分 别 是 (  )。 
A. 数字 、 字 符 串 、 字 符 串 B. 字符 串 、 数 字 、 数 字 


C. 字符 串 、 字 符 串 、 字 符 串 D. 必须 根据 具体 值 而 定 
4. 下 面 程序 段 执行 完毕 ， 页 面 上 显示 的 内 容 是 (  )。 
<% 
Response.Write "a": Response.Flush: Response.Write "b": Response.Clear 
Response.Write "c": Response.End: Response.Write "d" 
%> 

A.ac B.cd 

C.bd D.ad 


4.5.3 ”问答 题 
1. Redirect() 方 法 和 超 链接 的 区 别 是 什么 ? 


2. 当 表 单 分 别 以 POST( 方 法 和 GET(U 方 法 提交 时 ， 获 取 数 据 的 方法 有 什么 区 别 ? 
3. 假如 变量 a="b"， 那 么 Request(a) 和 Request("a") 返 回 值 一 样 吗 ? 


4.5.4 ”操作 题 


开发 一 个 程序 ， 当 用 户 第 一 次 访问 时 ， 需 在 线 注册 姓名 和 性 别 ， 然 后 把 信息 保存 到 
Cookie 中 。 当 该 用 户 再 次 访问 时 ， 则 显示 “ 某 某 先生 /小 姐 ， 您 好 ， 您 是 ”的 欢迎 信息 ( 提 
示 : 可 以 用 多 个 页 面 实现 )。 
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教学 目标 
通过 对 本 章 的 学 习 ， 读 者 应 了 解 并 掌握 Server 对 象 的 基础 知识 ， 并 熟悉 该 对 象 的 各 个 
属性 、 方 法 及 事件 。 


@ Server 对 象 的 属性 与 方法 

@ Server 对 象 在 网 页 设计 中 的 应 用 

Server 对 象 提供 了 访问 服务 器 对 和 象 的 方法 和 属性 。 一 般 的 服务 器 系统 ， 其 工具 是 以 对 
象 模 型 的 方式 被 保存 的 ， 通 过 Server 对 象 的 使 用 ， 可 以 访问 服务 器 的 信息 。 服 务 器 系统 一 
系列 的 对 象 模型 ， 如 数据 库 连 接 组 件 ADODB， 其 访问 模型 有 连接 数据 库 Connection、 记 
录 集 Recordset 等 。 一 般 需要 通过 Server 对 象 创建 一 个 这 样 的 对 象 模 型 实例 ， 而 后 才能 正 
确 地 使 用 。 


5.1 Server 对 象 概述 


Server 对 象 提供 对 服务 器 上 方法 和 属性 的 访问 ， 其 中 大 多 数 方法 和 属性 是 作为 实用 程 
序 的 功能 服务 的 ， 如 表 5-1 所 示 。 


表 5-1 Server 对 象 成 员 


方 ”法 说 了 明 
CreateObject(objName 创建 对 象 实体 
HIMLEncode(strin HTML 字符 串 编码 
URLEncode(string) 路 径 字 符 串 编码 
MapPath(urlString) 取得 绝对 路 径 
Transfer(urlString) 转向 至 指定 浏览 网 页 
Execute(urlString) 执行 外 部 网 页 
GetLastError() 取得 Error 对 象 


在 这 些 成 员 中 ,使 用 最 为 频繁 的 方法 是 CreateObject0， 它 使 网 页 可 以 创建 一 个 指定 的 
对 象 ， 同 时 利用 这 个 对 象 进行 所 需 的 相关 操作 。 例 如 ， 制 作 数据 库 的 功能 首先 要 使 用 
CreateObject0 方 法 创建 所 需 的 ADO 对 象 ， 其 他 的 方法 包含 改变 网 页 的 文字 输出 格式 ， 获 
取 网 页 路 径 等 。 
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S.2 Server 对 象 的 属性 


用 户 在 上 网 时 经 常会 发 现 ， 当 打开 一 个 页 面 后 有 时 会 出 现 很 长 时 间 的 延 时 现象 ， 这 是 
因为 程序 的 脚本 过 大 ， 执 行 脚本 需要 用 户 等 待 很 长 一 段 时 间 。 要 解决 这 样 的 问题 ， 在 ASP 
中 处 理 运行 时 间 过 长 的 脚本 可 以 采用 Server 对 象 的 ScriptTimeonut 属性 来 实现 。 ScriptTimeout 
属性 指定 一 个 脚本 延 时 时 间 期 限 ， 其 引用 的 一 般 格式 如 下 : 


Server.ScriptTimeout=NumSeconds 

其 中 ，NumSeconds 参数 指定 脚本 在 被 服务 器 结束 前 最 大 可 运行 的 秒 数 。 若 脚本 超过 
该 时 间 限 度 仍 没有 执行 完毕 ， 将 被 终止 ， 并 显示 超时 错误 提示 (该 属性 的 单位 为 秒 ， 默 认 值 
为 90 秒 )。 


注意 : 
Server 对 象 只 有 一 个 ScriptTimeout 属性 ， 它 用 于 指定 一 个 脚本 延 时 的 时 间 期 限 。 脚本 
运行 超过 ScriptTimeout 属性 设置 时 间 将 做 超时 处 理 , 终止 没有 完毕 的 响应 并 提示 超时 错误 


a 


以 下 程序 规定 如 果 服 务 器 处 理 脚 本 时 间 超过 120 秒 ， 则 使 其 超时 : 


<% 
Server.ScriptTimeout=120 
%> 
在 获取 ScriptTimeout 属性 当前 的 值 后 ， 将 其 存储 在 变量 Timeout 中 。 
<% 
TimeOut=Server. ScriptTimeout 
%> 
在 一 些 特殊 场合 中 ， 存 在 脚本 运行 时 间 大 于 90 秒 的 情况 。 例 如 ， 当 脚本 生成 一 个 非 
常 大 的 主页 时 ， 主 页 显示 到 一 半 时 间 就 过 了 限制 时 间 ， 这 时 就 需要 利用 Server 对 象 的 
ScriptTimeout 属性 设 定 脚本 的 限制 时 间 。 
【 例 5-1】 在 网 页 中 随机 显示 一 个 星 号 ， 碍 看 限制 时 间 对 页 面 响应 的 限制 作用 。 
(1) 创建 一 个 名 称 为 test8.asp 的 网 页 ， 代 码 如 下 所 示 : 
<% Server.ScriptTimeOut=150 %> 
<html> 
<head><title> 落 星 </title></head> 
<body> 
<% 
randomize 
starx=60 
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fork=l1 to 10 
nextsecond=dateadd("s",10,time) 
do while time<nextsecond 
loop 
Starx=starxt3*mdO-1 
for i=1 to starx 

Response. Write("&ndsp:") 
Next 
Response. Write("*<p>") 
Next 
%> 
</body> 
</html> 


(2) 运行 以 上 程序 后 ， 页 面 中 将 显示 星 号 ， 显 示 限制 时 间 对 页 面 响应 的 限制 作用 。 


5.3 ”Server 对 象 的 方法 


Server 对 象 最 常用 的 方法 是 创建 服务 器 组 件 的 实例 (Server.CreateObject)， 其 他 方法 用 于 将 
URL 或 HTML 编码 成 字符 串 ， 将 虚拟 路 径 映 射 到 物理 路 径 ， 以 及 设置 脚本 的 超时 期 限 等 。 


5.3.1 HTMLEncode() 方 法 


HTMLEncode0 方 法 对 指定 的 字符 串 应 用 HTML 编码 。HTMLEncode() 方 法 引用 的 一 般 
格式 如 下 : 


Server.HTMLEncode(string) 


其 中 ，string 参数 指定 要 编码 的 字符 串 。 无 论 是 一 个 HTML 文件 还 是 一 个 ASP 文件 ， 最 
终 交 给 浏览 器 解释 的 文档 都 是 一 个 纯 HTML 的 文本 文件 。 因 此 ， 对 于 该 文件 中 所 有 的 HIML 
标记 ， 浏 览 器 都 将 进行 解释 。 也 就 是 说 ， 在 浏览 器 窗口 中 无 法 显示 HIML 源 代码 。 

在 HIML 语言 中 有 一 种 转 义 符 ， 浏 览 器 在 解释 转 义 符 时 ， 只 将 转 义 符 对 应 的 字符 或 字符 
串 转 化 显示 在 浏览 器 上 ， 而 不 进行 HTML 的 标记 解释 ， 但 同样 把 HIML 标记 转化 为 转 义 符 发 
送 至 浏览 器 ， 这 样 就 可 以 在 浏览 器 上 看 到 HIML 标记 。 例 如 下 面 的 程序 代码 所 示 : 


<% 
Dim htmstring 
htmstring=" 输 出 一 个 HIML 标记 : <html>" "htmstring 赋值 
htmstring=Server. HTMLEncode(htmstring) "对 htmstring 的 值 进行 编码 
Response.write htmstring 输出 htmstring 的 值 


%> 
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使 用 HTMLEncode0 方 法 ，htmstring 就 变 成 了 一 个 字符 串 。 

“输出 一 个 HTML 标记 : &ithtml&gt”， 将 这 个 字符 串 显示 在 浏览 器 上 时 ， 浏 览 器 又 将 
各 转 义 符 还 原 成 HTML 标记 ， 显 示 在 窗口 中 。 以 上 代码 的 运行 结果 如 图 5-1 所 示 。 

利用 HTMLEncode0 方 法 可 以 将 一 个 指定 的 字符 串 按 HTML 的 编码 输出 。 例 如 以 下 代码 
所 示 : 


<html> 
<head> 
<title>HTIMLEncode</title> 
</head> 
<body bgcoloer='"#ffffff'> 
<% 
response.write"<b>hello</b><i>word</i>" 
response.write"<p>" 
' 对 "<b>hello<b><i>word</>" 进 行 编码 输出 
response.write server.htmlencode("<b>hello</b><i>world</i>") 
response.write"<p>" 
Tesponse.write"Nanjing&Beijing" 
response.write"<p>" 
输出 编码 后 的 Nanjing&Beijing 
response.write server.URLencode("Beijing and shanghai") 
%> 
</body> 
</html> 


以 上 代码 运行 后 的 结果 如 图 5-2 所 示 。 


E> 硝 HTMLEnc x | + 
© 窗 荡 | 四 "| 图 Q 


篇 + jj 人 ix | + helloword 
© 镶 国 | 刁 vji 四 Q| Nr 《<b>helloc/b><i>worldK/iy> 


输出 一 个 HTIL 标 记 ，<html> 


Nanjing&Beijing 
Bei jingtandtshanghai 
加 玉器 忆 下载 | 本 看 中 已 己 2 TITTRSESE 
图 5-1 输出 一 个 HTML 标记 图 5-2 ”将 指定 字符 串 按 HIML 的 编码 输出 


5.3.2 URLEncode() 方 法 


URLEncode0 方 法 是 将 URL 编码 规则 (包括 转 义 字符 ) 应 用 到 指定 的 字符 串 。 
URLEncode() 方 法 引用 的 一 般 格式 如 下 : 
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Server.URLEncode(string) 

其 中 ，string 参数 指定 要 编码 的 字符 串 。 就 像 HTMLEncode0) 方 法 一 样 可 以 将 字符 串 翻 
译 为 可 接受 的 HTML 格式 ，URLEncode0) 方 法 用 于 将 一 个 指定 的 字符 串 按 URL 的 编码 输 
出 。 当 字符 数据 以 URL 的 形式 传递 到 服务 器 时 ， 在 字符 串 中 不 允许 出 现 空格 ， 也 不 允许 
出 现 特殊 字符 。 如 果 在 发 送 前 进行 URL 编码 ， 就 可 以 使 用 URLEncode 编码 ， 即 利用 
ServerURLEncode() 方 法 。 

例如 ， 以 下 所 示 的 程序 会 将 给 定 的 字符 串 翻 译 成 可 作为 URL 接受 的 格式 : 


<% 


Response.write Server.URLEncode("[test]") ' 按 URL 编码 输出 [test] 
%> 


以 上 代码 运行 结果 如 图 5-3 所 示 。 
【 例 5-2】 参考 上 面 的 代码 ， 在 ASP 网 页 中 同时 输出 经 过 URL 编码 后 的 与 编码 前 的 
字符 串 。 
(1) 创建 一 个 名 称 为 test35.asp 的 网 页 ， 代 码 如 下 所 示 : 


<% 
dim urlstring 
urlstring="http://www.sina.com" 
response.write"<h2> 编 码 前 的 字符 串 如 下 。"&curlstring&"</h2><br>" 
urlstring=Server.URLEncode(urlstring) 
response.write"<h2> 编 码 后 的 字符 串 如 下 。"&urlstring&"</h2>" 
%> 


(2) 运行 以 上 程序 后 ， 结 果 如 图 5-4 所 示 。 


| 面 hapyl x ‖ 十 - 
hmpylic2ies x | bee/io21ss x | + 
名 容 团 | 有 "IIQjss 加 守 痪 男 加 6 作 v][ 轿 coog QS 


%5Btest%5D 中 编码 前 的 字符 串 如 下 。 


http://www. sina. com 


编码 后 的 字符 串 如 下 。http%3A%2F%2Fwww% 
2Esina%2Ecom 


] 加速器 名 下 载 | 可 症 嘿 局 驴 * 


FTIRTSE | 


图 5-3 输出 结果 图 5-4 输出 URL 编码 前 后 的 字符 串 


5.3.3 MapPath() 方 法 


MapPath() 方 法 将 指定 的 相对 或 虚拟 路 径 映射 到 服务 器 上 相应 的 物理 目录 上 。MapPath0 
方法 引用 的 一 般 格式 如 下 : 


Server.MapPath(Path) 


。120 。 ASP 动态 网 站 开发 基础 教程 (第 5 版 ) 


其 中 ，Path 参数 指定 要 映射 物理 目录 的 相对 或 虚拟 路 径 。 若 Path 以 一 个 正 斜 杠 () 或 反 
斜 杠 Q) 开 始 , 则 MapPath0 方 法 返回 路 径 时 将 路 径 视 为 完整 的 虚拟 路 径 ; 若 路 径 不 是 以 斜 杠 
开始 ， 则 MapPath() 方 法 返回 同 ASP 文件 中 已 有 的 路 径 相 对 的 路 径 。 

例如 ， 以 下 程序 示例 表示 使 用 服务 器 变量 PATH INFO 映射 当前 文件 的 物理 路 径 : 


<% 
response.write server.mappath(request.servervariables("PATH INFO")) 
%><BR> 


其 输出 结果 如 图 5-5 所 示 。 
下 面 的 程序 代码 中 ， 路径 参 数 不 是 以 斜 杠 字符 开始 的 , 它们 被 相对 映射 到 当前 目录 (也 
就 是 服务 器 的 主 目录 ， 例 如 F:\mysite)。 


<% 


response.write server.mappath("page.txt") 
%><BR> 
<% 


response.write server.mappath("asp/page.txt") 
%><BR> 


其 输出 结果 如 图 5-6 所 示 。 


|B1x [or: 十 E> Dt |] 人 ,x+ 
篇 © Yi Ne 巴 避 丰田 | 昌 "| 图 Q| Nr 


F:\mysite\lapPath. asp F:\mysite\page. txt 司 
F:\mysite\asp\page. txt 


加 本 旺 蕊 下载 | 下 在 中 已 又 > TS 
图 5-5 映射 当前 文件 的 物理 路 径 图 5-6 ”相对 映射 到 当前 目录 


下 面 的 程序 则 使 用 正 斜 杠 () 与 反 斜 杠 ()， 返 回 主 目 录 的 物理 路 径 。 


<% 

response.write server.mappath("\") 
%><BR> 
<% 

response.write server.mappath("/") 
%><BR> 


其 输出 结果 如 图 5-7 所 示 。 


E> 可 | 全 j 可 xz | + 
C70.ML 
F:\mysite 


F:\mysite 
9 加 法 各 心 下 过 | 本 窑 路 局 @? 


主 目录 


互 


图 5-7 使 用 正 斜 杠 O) 与 反 斜 杠 () 返 | 
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5.3.4 _ CreateObject() 方 法 


CreateObject() 方 法 是 Server 对 象 最 重要 的 方法 ， 用 于 创建 已 注册 到 服务 器 上 的 组 件 的 
实例 。CreateObject0 方 法 引用 的 一 般 格式 如 下 : 


Server.CreateObject(progID) 


其 中 ，progID 参数 是 指定 要 创建 的 对 象 类 型 。CreateObject0 方 法 是 一 个 非常 重要 的 特 
性 ， 因 为 使 用 ActiveX 组 件 能 够 扩展 ActiveX 的 功能 ， 实现 一 些 仅 靠 脚 本 无 法 实现 的 功能 ， 
例如 数据 库 访 问 和 文件 访问 等 。 

在 ASP 文件 中 ， 用 以 下 方法 可 以 将 创建 的 对 象 赋值 给 一 个 变量 : 


<% 
Set conn=Server.CreateObject("ADODB.connection") 
%> 


其 中 , ADODB 是 ASP 服务 器 的 一 个 组 件 , 用 于 处 理 数据 库 操作 。 当 创建 一 个 组 件 后 ， 
用 户 可 以 利用 其 提供 的 属性 和 方法 实现 相应 的 功能 。 
当 创 建 一 个 对 象 后 ， 若 不 再 需要 该 对 象 ， 应 释放 其 所 占用 的 资源 ， 释 放 语句 如 下 : 


<% 
Set conn=nothing 
%> 


注意 : 
CreateObject0 方 法 中 的 组 件 是 指定 的 关键 字 , 用户 不 能 用 该 方法 建立 系统 内 建 的 对 象 ， 
例如 Request 或 Response 等 。 


5.3.5 Transfer() 方 法 


Transfer( 方 法 把 执行 流程 从 当前 的 ASP 文件 转 到 同一 服务 器 上 的 另 一 个 ASP 页 面 。 
它 的 功能 和 Response 对 象 的 Redirect() 方 法 重 定向 浏览 器 功能 类 似 ， 但 两 者 在 工作 原理 上 
有 一 定 的 差别 。 

使 用 Response.Redirect() 方 法 重 定向 操作 的 整个 过 程 中 , 客户 端 与 服务 器 要 进行 两 次 来 
回 的 通信 : 第 一 次 通信 是 对 原始 页 面 的 请 求 ， 得 到 一 个 目标 已 经 改变 的 应 答 ， 第 二 次 通信 
是 请 求 Response.Redirect() 指 向 的 新 页 面 ， 得 到 重 定向 之 后 的 页 面 。 

使 用 Server.Transfer() 方 法 时 ， 客 户 端 与 服务 器 只 需要 进行 一 次 通信 ， 它 将 终止 执行 当 
前 的 ASP 页 面 , 执行 流程 转 入 另 一 个 ASP 页 面 , 但 新 的 ASP 页 面 仍 使 用 前 一 个 ASP 页 面 
创建 的 通信 。Transfer0 方 法 需要 的 网 络 通 信 量 较 小 ， 从 而 可 获得 更 好 的 性 能 和 浏览 效果 ， 
其 语法 结构 如 下 : 


=。122。 


重 定 


53; 


账 
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Server Transfer (URL 地 址 名 称 ) 

注意 : 

使 用 Server.Transfer() 方 法 实现 页 面 之 间 的 跳 转 后 ， 浏 览 器 中 的 URL 不 会 改变 ， 因 为 
向 完全 在 服务 器 端 进行 。 

3.6 ”Execute() 方 法 


Execute() 方 法 用 来 在 当前 的 ASP 页 面 执行 同一 Web 服务 器 上 指定 的 另 一 个 ASP 页 面 。 
指定 的 ASPO 页 面 执行 完毕 ， 控 制 流程 重新 返回 原 页 面 发 出 ExecuteO 调 用 的 位 置 。 
Execute() 方 法 类 似 于 许多 编程 语言 的 过 程 调 用 ， 只 不 过 过 程 调用 是 执行 一 个 过 程 ， 而 


Execute() 方 法 是 执行 一 个 完整 的 ASP 文件 。 其 语法 结构 如 下 : 


Server Execute (URL 地 址 名 称 ) 
【 例 5-3】 使 用 Server.Execute0 方 法 ， 在 一 个 ASP 文件 中 调用 执行 另 一 个 ASP 文件 。 
(1) 创建 一 个 名 称 为 test36 的 网 页 ， 其 代码 如 下 所 示 : 
<p> 这 是 第 一 个 页 面 ! </p> 
<% 
Response.Write "当前 的 会 话 编号 为 :，"&Session.SessionID&"<Br>" 
Response.Write "下 面 准备 执行 Server.Execute 方法 调用 第 二 个 页 面 "&"<Br>" 


Server.Execute("test37.asp") 
Response.Write "执行 完 Server.Execute 方法 后 返回 到 第 一 个 页 面 "&"<Br>" 


%> 

(2) 以 上 代码 保存 至 服务 器 主 目录 中 。 

(3) 创建 一 个 名 称 为 test37.asp 的 网 页 ， 代 码 如 下 所 示 : 
<p> 这 是 第 二 个 页 面 的 内 容 ! </p> 


<% 
Response.Write "当前 的 会 话 编号 为 : "&Session.SessionID&"<Br>" 


%> 
(4) 将 以 上 代码 保存 至 服务 器 主 目录 中 后 ， 运 行 test36.asp 页 面 ， 结 果 如 图 5-8 所 示 。 


运行 test37.asp 页 面 ， 结 果 如 图 5-9 所 示 。 


http/192168277 x | 钢 ptps/192168177 x | 十 | -的 pyns2168177 x [Bmmpynsz16817) x | 十 
编 轧 岛 窗 丁 | 忌 192 蒜 安 | | 加 5oogl QjSs 电台 窗 田 | 加 19z6 人 | 图 Googk Q 
这 是 第 一 个 页 面 ! i 个 页 面 的 内 容 ! 


当前 的 会 话 编号 为 ，400063139 当前 的 会 话 编号 为 ，400063139 
下 面 准 备 执行 Server. Execute 方 法 调用 第 二 个 页 面 


这 是 第 二 个 页 面 的 内 容 ! 


当前 的 会 话 编号 为 ，4000E3139 
执行 完 Server. xecute 方 法 后 设 回 到 第 一 个 页 面 


EF 


图 5-9 test37.asp 运行 结果 


加 和 过 | 刁 信 中 忆 加 


图 5-8 test36.asp 运行 结果 
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注意 : 

使 用 Transfer() 方 法 或 Execute() 方 法 时 , 最 后 得 到 的 页 面 可 能 不 是 合法 的 HIML 页 面 ， 
因为 最 终 返 回 给 客户 端的 页 面 可 能 包含 多 个 <HTMIL> 和 <BODY> 等 标记 ， 所 以 需要 多 次 对 
页 面 进行 测试 。 


5.3.7 ”GetLastError() 方 法 


GetLastError() 方 法 返回 一 个 ScriptErmror 对 象 , 用 于 捕捉 当前 ASP 程序 的 运行 错误 并 向 
用 户 返回 有 用 的 信息 ， 如 错误 描述 和 发 生 错误 的 行 号 等 。 其 语法 结构 如 下 : 


Server.GetLastError 0 
5.4 习 题 
5.4.1 填空 题 
1. Server 对 象 提供 方法 用 以 转换 HIML 标签 ， 避 免 这 些 特定 字符 被 浏览 


器 进一步 作 解 译 。 
2. Transfer() 方 法 把 执行 流程 从 当前 的 ASP 文件 转 到 同一 台 服 务 器 上 的 另 一 个 ASP 页 


面 。 它 的 功能 和 对 象 的 方法 重 定向 浏览 器 功能 类 似 ， 但 两 者 在 工 
作 原 理 上 有 一 定 的 差别 。 
3. 方法 用 来 在 当前 的 ASP 页 面 执行 同一 台 Web 服务 器 上 指定 的 另 一 个 
ASP 页 面 。 当 指定 的 ASP 页 面 执行 完毕 ， 控 制 流程 重新 返回 原 页 面 发 出 调 
4. 方法 返回 一 个 对 象 , 用 于 捕捉 当前 ASP 程序 的 运行 错误 并 
向 用 户 返 回 有 用 的 信息 ， 如 错误 描述 和 发 生 错 误 的 行 号 等 。 


5.4.2 ”选择 题 


1. 执行 语句 a=Server.URLEncode("b c") 后 ， 变 量 a 的 值 是 ( )。 
A.bec B.b+c (be D. "b&nbsp:c" 
2. 如 果 要 返回 应 用 程序 根 目录 的 物理 路 径 ， 那 么 es 方法 的 参数 可 以 是 ( )。 
A B. 本 . "Ci\Inetpub\wwwroot" 
3. 如 果 将 6-4.asp 中 的 Execute0 方 法 符 换 为 Transfer0， 本 6-5.asp 中 的 ScriptTimeOut 
属性 值 是 ( “)。 
A.90 B. 100 C.300 D. 以 上 都 不 对 
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4. 如 果 将 6-4.asp 中 的 ServerExecute() 方 法 替换 为 Response Redirect0)， 那 么 6-5.asp 


中 ScriptTimeOnut 属性 值 是 ( )。 
A.90 B. 100 C. 300 D. 以 上 都 不 对 
5. 如 果 在 页 面 1 中 添加 Server.ScriptTimeOut=300， 并 在 同一 网 站 的 页 面 2 


a 二 Server.ScriptTimeOut， 请 问 变量 a 的 值 等 于 ( % 
D. 以 上 都 不 对 


A.60 B. 90 C. 300 

6. 在 给 对 象 变量 赋值 时 ， 一 般 要 使 用 下 面 ( 。“) 关 键 字 。 
A. Dim B. Set C. Public D. Private 

7. 执行 语句 a=Server.HTMLEncode("<p>") 后 ， 变 量 a 的 值 是 (。 “)。 
A.p B. <p> Cs" D. "&ltp&gt" 


5.4.3 ”问答 题 


1. 简 述 Server 对 象 的 属性 。 


2. 简 述 Server 对 象 的 方法 。 
3. 简 述 Execute0、Transfer0 和 Redirect0 方 法 的 主要 区 别 。 


5.4.4 ”操作 题 
1. 开发 一 个 函数 ， 可 以 基本 实现 HIMLEncode() 方 法 的 功能 (提示 : 使 用 Replace 函数 


替换 “&、> 和 <” 为 对 应 的 字符 实体 )。 
2. 参考 本 章 练习 的 操作 ， 使 用 Server.Transfer0 方 法 将 一 个 ASP 文件 中 的 内 容 传输 到 


另 一 个 ASP 文件 中 。 
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教学 目标 
通过 对 本 章 的 学 习 ， 读 者 应 了 解 和 掌握 Application 对 象 和 Session 对 象 的 基础 知识 ， 
熟悉 它们 的 各 个 属性 、 方 法 及 事件 。 


e@ Application 对 象 在 网 页 设计 中 的 应 用 
@ ， Session 对象 在 网 页 设计 中 的 应 用 


本 章 将 介绍 两 个 重要 的 ASP 内 建 对 象 一 一 Application 对 象 和 Session 对 象 。 其 中 ， 
Application 对 象 可 以 在 所 有 用 户 之 间 共享 信息 ， 并 在 服务 器 运行 期 间 持久 地 保存 数据 ， 而 
且 Application 对 象 还 有 控制 访问 应 用 层 数据 的 方法 和 可 用 于 在 应 用 程序 启动 和 停止 时 触发 
过 程 的 事件 。Session 对 象 更 接近 于 普通 应 用 程序 中 的 全 局 变量 , 全 局 变量 在 程序 执行 的 过 
程 中 始终 有 效 ， 其 他 用 户 同时 启动 该 程序 的 另 一 个 副本 ， 该 程序 的 两 个 实例 使 用 各 自 的 全 
局 变量 ， 在 两 个 进程 之 间 不 能 互相 访问 。 


二 


6.1 Application 应 用 程序 对 象 


一 个 Application 对 象 就 是 在 硬盘 上 的 一 组 主页 以 及 ASP 文件 ， 当 一 个 ASP 加 入 了 一 
个 Application 对 象 ， 那 么 ， 它 就 拥有 了 作为 单独 主页 所 无 法 拥有 的 属性 。 下 面 将 介绍 
Application 对 象 的 特性 以 及 在 网 页 设计 中 的 应 用 。 


6.1.1 Application 对 象 概 述 


Application 对 象 是 应 用 程序 级 的 对 象 , 它 可 以 产生 一 个 全 部 的 Web 应 用 程序 都 可 以 存 
取 的 变量 ， 所 有 的 客户 都 可 以 访问 这 个 变量 。 

应 用 程序 是 驻 留 在 Web 站 点 的 特定 目录 中 的 一 组 文件 。 每 个 Web 站 点 上 可 以 有 多 个 
应 用 程序 ， 还 可 以 根据 某 个 任务 为 一 些 ASP 文件 创建 一 个 应 用 程序 。 例 如 ， 创 建 一 个 应 用 
程序 作为 全 部 客户 服务 后 ， 再 创建 一 个 新 的 应 用 程序 作为 网 络 管理 员 服务 。 

应 用 程序 的 运行 实例 用 Application 对 象 表示 , 其 生存 期 从 请 求 该 应 用 程序 的 第 一 个 页 
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面 开始 (不 是 从 服务 器 启动 开始 )， 直 到 Web 站 点 关闭 时 结束 。 由 于 存储 在 Application 对 象 
中 的 数据 可 以 被 应 用 程序 的 所 有 用 户 共享 ,因而 Application 对 象 特别 适合 在 应 用 程序 的 不 
同 用 户 之 间 传 递 信 息 。 

Application 对 象 本 身 提供 了 一 些 方 法 与 集合 , 用 以 处 理 ASP 应 用 程序 的 各 种 状态 与 特 
性 ， 如 表 6-1 所 示 。 


表 6-1 Application 对 象 成 员 


对 象 成 员 说 了 明 
集合 Contents 储存 Application 对 象 变量 值 
StaticObjects 储存 lication 对 象 标签 <Object> 变 量 
Contents.Remove(valName) 移 走 Contents 集合 中 的 特定 元 素 
方法 Contents.RemoveAll 移 走 Contents 集合 中 的 所 有 元 素 
LockO 锁定 Application 对 象 存 取 
Unlock0 释放 被 锁定 的 Application 对 象 
ee OnStart ASP 应 用 程序 第 一 次 启动 时 被 触发 
0 OnEnd ASP 应 用 程序 结束 时 被 触发 
注意 : 


一 个 应 用 程序 的 根 目 录 由 IIS 的 Intemet 信息 服务 程序 设 定 , 根 目 录 下 的 每 个 文件 和 目 
录 都 属于 该 应 用 程序 。 应 用 程序 和 应 用 程序 之 间 是 不 能 互相 重 登 的 ， 如 果 其 中 的 某 一 个 子 
目录 也 被 创建 为 一 个 根 目录 ， 那 它 将 被 认为 是 一 个 新 的 应 用 程序 。 


6.1.2 Application 对 象 的 属性 


Application 对 象 没有 内 置 属性 ， 用 户 可 根据 需要 自行 创建 。 创 建 一 个 属性 后 ， 在 整个 
应 用 程序 运行 期 间 ， 此 属性 的 值 都 可 以 被 所 有 的 用 户 访问 。 如 下 面 的 代码 定义 了 一 个 
Application 对 象 的 属性 Welcome: 

<% Application("Welcome")=" 本 网 站 属于 非 营 利 性 商业 网 站 " %> 


每 个 Application 变量 都 是 Contents 集合 中 的 一 个 成 员 。 创 建 一 个 新 的 Application 变 
量 ， 其 实 就 是 在 Contents 集合 中 添加 一 项 新 的 内 容 。 例 如 ， 上 面 一 句 代码 也 可 以 写 为 : 


<% Application.Contents("Welcome")=" 本 网 站 属于 非 营利 性 商业 网 站 " %> 


Contents.Remove() 方 法 可 以 从 Contents 集合 中 删除 一 个 成 员 , 而 Contents.RemoveAll0 
方法 可 以 删除 Contents 集合 中 的 所 有 成 员 ， 如 下 例 所 示 : 


<9% Application.Contents.Remove("Welcome") %> 


Contents 集合 包含 了 所 有 的 Application 变量 ， 可 使 用 For…Each 循环 全 部 列举 或 显示 
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Application 变量 的 值 ， 如 下 例 所 示 : 


<% 
For Each item in Application.Contents 
Response. Write ("<Br>"&item&"="&Application.Contents(item)) 
Next 
%> 


6.1.3 ”Application 对 象 的 方法 


Application 对 象 对 于 网 站 所 有 的 网 页 和 在 线 用 户 来 说 ， 是 一 个 公开 的 对 象 ， 因 此 ， 任 
何人 在 任何 时 间 都 有 可 能 对 其 进行 存 取 。 当 一 个 Application 对 象 在 同一 个 时 间 被 存 取 ， 此 
时 冲突 就 会 发 生 ， 因 此 ， 对 于 Application 对 象 ， 适 当地 限制 用 户 存 取 非 常 重 要 。 

Application 对 象 包 含 Lock0 和 UnLock0 两 种 方法 。Lock() 方 法 用 于 锁定 Application 对 
象 ， 保 证 同一 时 刻 只 有 一 个 用 户 可 以 操作 其 中 的 数据 ， 避 免 多 个 用 户 同 时 修改 同一 数据 而 
产生 的 冲突 。UnLock0 方 法 用 于 解除 Lock0 方 法 对 数据 的 锁定 ， 以 便 其 他 用 户 能 访问 和 修 
改 Application 对 象 的 属性 。Lock0 和 UnLock0O 两 种 方法 总 是 成 对 出 现 的 ， 这 样 可 以 确保 
Application 对 象 中 数据 对 所 有 用 户 的 完整 性 和 一 致 性 。 

【 例 6-1】 制 作 一 个 网 站 计数 器 。 
(1) 创建 一 个 名 称 为 indexl.asp 的 文件 ， 代 码 如 下 所 示 : 


<% 
Application.Lock "锁定 Application 对 象 ， 保 证 只 有 当前 用 户 对 计数 器 进行 操作 
Application("user_num")= Application("user num")+1 “计数 器 值 加 1 
Application .UnLock "解除 锁定 ， 其 他 用 户 可 对 计数 器 进行 操作 
Response.write(" 此 页 面 已 经 被 访问 过 " &Application("user_num")&" 次 ") “输出 结果 

%> 


(2) 运行 indexl asp 文件 后 的 结果 如 图 6-1 所 示 。 


| 稳 攻 汪汪 a 
S 究 转 | ga Si 


此 页 面 已 经 被 访问 过 5 次 


? 加 连 器 凶 下 载 | 国 而 只 司马 5 


图 6-1 网 站 计数 器 
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6.1.4 Application 对 象 的 事件 


Application 对 象 包含 Application OnStart 和 Application OnEnd 两 个 事件 。 当 网 站 的 第 

一 个 用 户 通 过 浏览 器 打开 一 份 网 页 时 ，Application 对 象 就 会 被 自动 创建 ， 与 此 同时 ， 
Application 对 象 所 定义 的 OnStart 事件 便 会 被 触发 。 对 于 ASP 网 页 的 程序 设计 师 而 言 ， 会 
将 焦点 放 在 所 触发 的 OnStart 事件 ， 整 个 网 站 一 开始 所 要 执行 的 工作 、 初 始 化 操作 的 相关 
程序 代码 ， 都 可 以 在 这 个 事件 里 面 做 处 理 。 

同样 , ASP 应 用 程序 网 站 被 关闭 时 , 系统 侦 测 到 最 后 一 个 用 户 离线 的 同时 , Application 
象 就 会 被 结束 。 所 有 ASP 应 用 程序 执行 期 间 ， 网 页 在 其 中 所 储存 的 数据 均 会 被 清除 。 此 
十 ，OnEnd 事件 即 会 被 触发 ， 处 理 ASP 网 站 结束 时 所 需 的 程序 代码 可 以 被 放 在 这 个 事件 里 
做 处 理 。 

处 理 OnStart 和 OnEnd 事 件 的 相关 程序 必须 在 一 个 名 称 为 Globalasa 的 特殊 文件 中 做 处 理 。 
Application 对 象 创建 与 消失 时 ， 都 会 在 该 文件 内 进行 。 


泽 


6.1.5 使 用 Application 对 象 保存 数据 


在 Application 对 象 中 ， 它 保存 的 内 容 除了 可 以 是 简单 数据 类 型 的 变量 和 普通 对 象 外 ， 
还 可 以 是 一 个 保存 有 多 个 值 的 数组 .创建 的 过 程 中 要 求 定义 一 个 普通 的 数组 并 将 值 赋 给 它 ， 
然后 将 数组 整体 定义 为 一 个 Application 对 象 ， 如 下 例 所 示 : 


<% 
dim ArrayO 
Array=Application("array") 
fori= 0 to ubound(array) 
Response.write Array(i) 
nexti 
%> 


数组 在 Application 中 只 能 作为 一 个 对 象 保存 ， 用 户 只 能 对 一 个 数组 整体 进行 存 取 操 
作 ， 而 不 能 直接 改变 数组 中 某 个 元 素 的 值 。 对 Application 对 象 中 数组 值 的 修改 ， 要 通过 普 
通 的 数组 进行 。 

对 一 个 Application 对 象 中 的 数组 值 进 行 修改 的 代码 如 下 所 示 : 


<% 
dim Aray0 "定义 一 个 临时 数组 
Array=Application("array") 和 把 含有 数组 值 的 Application 对 象 赋 给 该 临时 数组 
Array(0)=" 第 一 个 元 素 的 值 " "根据 需要 修改 这 个 数组 中 元 素 的 值 
Array(1)=" 第 二 个 元 素 的 值 " 
Application.lock 


Application("array")=Array 最 后 把 数组 赋 回 Application 对 象 
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Application unlock 
%> 


6.2 Session 对 象 


使 用 Session 对 象 ， 可 以 存储 特定 用 户 会 话 所 需 的 信息 。 当 用 户 在 应 用 程序 的 页 面 之 
间 跳 转 时 ， 存 储 在 Session 对 象 中 的 数据 始终 存在 ， 不 会 清除 。 


6.2.1 Session 对 象 概 述 


Web 上 用 在 浏览 器 和 服务 器 之 间 传 送 请 求 和 响应 的 HTTP 协议 是 无 状态 协议 , Web 服 
务 器 将 每 个 页 面 请 求 都 当 作 独 立 的 请 求 ， 服 务 器 不 保留 以 前 请 求 的 任何 信息 。 

ASP 的 Session 对 象 弥 补 了 HITP 无 法 记忆 先前 请 求 的 缺陷 。Session 对 象 可 用 来 标识 
每 次 访问 的 用 户 并 收集 信息 ， 用 户 在 应 用 程序 的 页 面 之 间 跳 转 时 ， 该 Session 信息 仍然 存 
在 并 保持 不 变 。 在 用 户 与 网 站 服务 器 保持 联系 期 间 ， 应 用 程序 可 调用 这 些 存储 的 信息 跟踪 
用 户 的 喜好 或 选择 。 

Session 对 象 同样 提供 了 多 种 成 员 ， 其 中 包含 属性 、 方 法 和 事件 ， 这 些 成 员 在 应 用 程序 
中 的 使 用 也 相当 广泛 ， 如 表 6-2 所 示 。 


表 6-2 Session 对 象 成 员 


储存 Session 对 象 变量 值 

储存 Session 对 象 <Object> 变 量 

Contents.Remove(valName) 移 走 Session 集合 中 的 特定 元 素 

方法 Contents.RemoveAllO 移 走 Session 集合 中 的 所 有 元 素 

结束 当前 的 Session， 为 用 户 创建 一 个 新 的 Session 
-个 新 的 用 户 联机 进来 时 被 触发 

一 个 用 户 结束 联机 时 被 触发 

设 定 网 页 所 使 用 的 字符 编号 

存 取 网 页 设 定 的 区 域 识别 

代表 一 个 特定 用 户 的 唯一 Session 识别 ID 

设 定 Session 对 象 的 存活 时 间 

Session 与 Application 对 象 的 应 用 范围 不 同 ， 但 概念 、 相 关 方法 以 及 事件 的 处 理 机 制 


均 相 同 。Session 对 象 用 于 记载 单个 客户 的 信息 ，Web 服务 器 为 每 个 访问 者 建立 一 个 单独 的 
Session， 例 如 Session 对 象 可 以 记载 该 客户 的 用 户 名 称 及 个 人 爱好 等 。 


事件 


属性 
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Application 对 象 可 以 记载 所 有 的 客户 信息 ， 例 如 Application 对 象 应 用 于 聊天 室 ， 大 家 
的 发 言 都 存放 到 一 个 Application 对 象 中 ， 彼 此 可 以 看 到 所 有 的 发 言 内 容 。 不 同 的 客户 必须 
访问 属于 自己 的 Session 对 象 ， 但 可 以 访问 公共 的 Application 对 象 。 
6.2.2 Session 对 象 的 属性 


下 面 将 介绍 Session 对 象 的 SessionID 属性 与 TimeOut 属性 的 特性 。 
1. SessionlD 属性 


用 户 第 一 次 请 求 应 用 程序 中 的 ASP 文件 时 ，ASP 将 生成 一 个 SessionID。SessionID 是 
通过 复杂 算法 产生 的 长 整 型 数据 ， 它 返回 用 于 当前 会 话 的 唯一 标志 符 。 新 的 会 话 开始 时 ， 
它 将 自动 为 每 一 个 Session 分 配 不 同 的 编号 ， 服 务 器 将 SessionID 作为 Cookie 存储 到 用 户 
Web 浏览 器 中 。 

用 户 Web 浏览 器 创建 SessionID 的 Cookie 后 ， 用 户 请 求 其 他 ASP 文件 或 请 求 在 其 他 
应 用 程序 中 运行 的 ASP 文件 ，ASP 会 一 直 调用 该 Cookie 跟踪 会 话 。 如 果 用 户 放弃 了 会 话 
或 在 会 话 超时 后 继续 请 求 其 他 ASP 文件 ，ASP 仍 将 调用 同一 Cookie 开始 新 的 会 话 。 只 有 
Web 服务 器 重新 启动 时 才 清 除 存储 在 内 存 中 的 SessionID 设置 ， 或 用 户 重新 启动 浏览 器 时 
才 可 能 收 到 新 的 SessionID Cookie。 如 下 例 将 取得 当前 用 户 的 SessionID 值 : 

<%6Response. Write ("Hi， 您 的 SessionID 自动 编号 是 <b>" & SessionID. SessionID & " </b> ")%> 


2. TimeOut 属性 


TimeOut 属性 定义 了 应 用 程序 中 Session 对 象 的 时 限 。 如 果 用 户 在 TimeOut 规定 的 时 
间 内 没有 请 求 或 刷新 应 用 程序 中 的 任何 页 ，Session 对 象 就 会 自动 终止 。 默 认 情况 下 ， 服 务 
器 只 保留 Session 对 象 20 分 钟 。 

对 于 特定 的 会 话 ， 如 果 要 设置 低 于 默认 应 用 程序 超时 的 超时 间隔 ， 可 通过 TimeOnut 属 
性 设置 。TimeOut 属性 以 分 钟 为 单位 指定 超时 间隔 ， 如 下 例 将 超时 间隔 设 为 10 分 钟 ; 

<% Session.TimeOut=10 %> 


注意 : 

通过 IIS 的 “Intemet 信息 服务 ”程序 设置 会 话 超时 ， 该 值 的 设置 取决 于 应 用 程序 的 要 
求 及 服务 器 的 内 存 容 量 。 会 话 超时 如 果 设 置 过 长 ， 可 能 会 导致 打开 的 会 话 太 多 ， 这 将 增加 
服务 器 内 存 资源 的 负担 。 


6.2.3 ”Session 对象 的 方法 


Abandon() 方 法 是 Session 对 象 的 唯一 方法 ,Abandon() 方 法 可 以 用 来 删除 用 户 的 Session 
对 象 并 释放 其 所 占用 的 资源 。 下 面 的 语句 将 用 于 消除 Session 对 象 : 
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<% Session.Abandon %> 


如 果 使 用 了 Abandon() 方 法 ，Session 对 象 将 被 重新 分 配 一 个 新 的 SessionID 值 。 


6.2.4 ”Session 对 象 的 事件 


Session 对 象 包含 Session_ OnStart 和 Session OnEnd 两 个 事件 。 当 网 站 一 个 新 的 用 户 通 
过 浏览 器 请 求 一 份 网 页 的 时 候 ， 这 个 用 户 的 专属 Session 对 象 就 会 被 创建 ，Session 对 象 所 
定义 的 OnStart 事件 同时 被 触发 。 

当 一 个 用 户 离线 或 是 停止 任何 浏览 网 页 操作 时 ， 一 旦 过 了 Session 对 象 的 存活 期 限 ， 
代表 此 用 户 的 Session 对 象 就 会 被 结束 ， 此 时 OnEnd 事件 即 会 被 触发 ， 处 理 用 户 离线 时 所 
需 的 程序 代码 可 以 放 在 这 个 事件 里 面 做 处 理 。 

注意 : 


OnStart 和 OnEnd 事件 的 相关 程序 与 Application 对 象 一 样 ， 都 是 在 Global.asa 文件 里 
面 做 处 理 。 


6.2.5 使 用 Session 对 象 记录 用 户 登 录 信息 


下 面 以 一 个 简单 的 实例 介绍 利用 Session 对 象 记录 变量 内 容 的 方法 。 
【 例 6-2】 利 用 Session 对 象 记录 变量 内 容 ， 实 现 ASP 网 页 记录 用 户 登 录 信 息 的 效果 。 
(1) 创建 一 个 名 称 为 index2.asp 的 文件 ， 代 码 如 下 所 示 : 
<% 
data=Session("data") 
Response.Write" 进 入 网 页 时 ，data="&data&"<BR>" 
data=data+1 
Response.Write" 网 页 结束 时 ，data="&data&"<BR>" 
Session("data")=data 
%> 


(2) 运行 index2.asp 文件 后 的 结果 如 图 6-2 所 示 。 


入 而 htpyl923 x | 二 篇 而 htpy/1923 x | 十 
© 窜 荐 | 加 vj 目 Q| © 名 由 | 加 "| 图 Q 


进入 网 页 时 , data=1 | | 进入 网 页 时 , data=8 


网 页 结束 时 , data=2 网 页 结束 时 , data=9 
9 加 速 器 上 下 载 | 于 窗 炳 马 忆 ” 3 加速器 包 下 载 | 卫 窗 叫 避 忆 > 
刷新 2 次 网 页 刷新 多 次 网 页 


图 6-2 记录 用 户 登 录 信息 
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对 象 和 


6.3 Global.asa 文 件 


Globalasa 文件 是 用 来 存放 Application 对 象 和 Session 对 象 事件 的 程序 , 当 Application 


1 Session 对象 第 一 次 被 调用 或 结束 时 ， 服 务 器 就 去 读 取 该 文件 并 进行 相应 的 处 理 。 


Global.asa 文件 是 一 个 文本 文件 ， 可 使 用 任何 文本 编辑 器 进行 编辑 。 下 面 就 是 一 个 标 
准 的 空白 Globalasa 文件 结构 : 


<SCRIPT LANGUAGE=VBScript RUNAT=Server> 


Sub Application OnStart 。””' 当 第 一 个 用 户 运 行 ASP 应 用 程序 中 的 任何 一 个 页 面 时 执行 
End Sub 
Sub Application OnEnd ' 当 Web 服务 器 关闭 时 执行 


End Sub 
Sub Session OnStart ' 用 户 第 一 次 运行 ASP 应 用 程序 中 的 任何 一 个 页 面 时 执行 
End Sub 
Sub Session OnEnd ' 当 一 个 用 户 的 会 话 超时 或 退出 应 用 程序 时 执行 
End Sub 
</SCRIPT> 


ASP 对 使 用 Global.asa 文件 有 以 下 几 条 要 求 ， 


每 一 个 应 用 程序 可 能 由 很 多 文件 或 文件 夹 组 成 ， 但 只 能 有 一 个 Global.asa 文件 ， 而 
且 文 件 名 称 必须 为 Global.asa。 
必须 存放 在 应 用 程序 的 根 目 录 中 。 
Globalasa 文件 不 能 写成 <%…%> 的 形式 , 如 果 包 含 的 脚本 没有 用 <SCRIPT> 标 记 封 
装 , 或 定义 的 对 象 没有 会 话 或 应 用 程序 作用 域 ， 则 服务 器 将 返回 错误 。 服 务 器 会 忽 
略 已 标记 的 但 未 被 应 用 程序 或 会 话 事 件 使 用 的 脚本 和 文件 中 的 HIML 语句 。 
在 Global.asa 文件 中 不 能 包含 任何 输出 语句 ， 如 Response .Write， 因 为 Globalasa 
文件 只 是 被 调用 ， 而 不 会 显示 在 页 面 上 。 

【 例 6-3】 通 过 Global.asa 文件 ， 使 用 Application 对 象 和 Session 对 象 显示 网 站 的 在 线 


人 数 和 访问 人 数 。 
(1) 创建 一 个 名 称 为 Globalasa 的 文件 ， 代 码 如 下 所 示 : 


<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Application OnStart 


Session. TimeOut=3 将 会 话 超时 设 为 3 分 钟 
Application Lock '" 锁 住 Application 
Application("intuseronline")=0 "初始 化 在 线 人 数 为 0 
Application("intuserall")=0 "初始 化 访问 人 数 为 0 
Application.UnLock " 解 开 Application 

End Sub 


Sub Session OnStart 


Application.Lock 
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5 当 一 次 新 用 户 会 话 开始 时 ， 使 在 线 人 数 和 访问 人 数 都 加 1 
Application("intuseronline")=Application("intuseronline")+1 
Application("intuserall")=Application("intuserall")+1 
Application.UnLock 

End Sub 

Sub Session OnEnd 
Application.Lock 
会 话 超时 或 用 户 退 出 时 ， 使 在 线 人 数 减 1 
Application("intuseronline")=Application("intuseronline")-1 
Application.UnLock 

End Sub 

</SCRIPT> 


(2) 将 Global.asa 文件 保存 至 服务 器 主 目录 中 。 
(3) 创建 一 个 显示 访问 人 数 的 ASP 页 面 hdex3.asp， 其 代码 如 下 : 
<h2 align="center"> 网 站 的 统计 数据 </h2> 
<% 
Response.Write "<Br> 当 前 网 站 在 线 人 数 是 : "&Application("intuseronline") 
Response.Write "<Br> 网 站 总 的 访问 量 是 : "&Application("intuserall") 
%> 
(4) 将 Index3.asp 文件 保存 至 服务 器 主 目录 中 。 
(5) 运行 Index3.asp 文件 后 的 结果 如 图 6-3 所 示 。 


1 | Bioes.|a 
Er RE 7 网 站 的 统计 数据 
和 air "center”) 网 站 的 统计 娄 志 Yb i 


Response. Write “<Br) 在 团 信 者 是， "8hcplicoticn("intuserogline”) 部 
Gearone pie i 


图 6-3 网 站 统计 数据 


注意 : 


.asa 是 文件 后 组 名 ， 它 是 Active Server Application 的 首 字母 缩写 。Global.asa 文件 可 以 


管理 ASP 应 用 中 的 Application 和 Session 对 象 。 


64 习题 


6.4.1 填空 题 


1. ASP 提供 的 6 个 内 置 对 象 分 别 是 
、 和 ScriptError 对 象 。 
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2. 每 个 Application 变量 都 是 集合 中 的 一 个 成 员 。 

3 方法 用 于 锁定 Application 对 象 ， 方法 可 以 解除 对 
Application 对 象 的 锁定 。 

4. 默认 情况 下 ， 服 务 器 只 保留 Session 对 象 分 钟 。 


6.4.2 选择 题 


1. 下 面 程序 段 执行 完毕 后 ， 变 量 c 的 值 是 (  )。 
<% Dim a: a="b": Session(a)=l1: Session("b")=2: ¢c=Session(b) %> 
A.1 B.2 入 D. 空 Empty) 
2. 下 面 程序 段 执行 完毕 后 ， 变 量 b 的 值 是 ( )。 
<% Session("a")=1: Session.Abandon: Dimb: b=Session("a") %> 
A.0 B.1 C. 空 Empty) D. 程序 出 错 


6.4.3 问答 题 


1. 名 词 解释 : 会 话 、 状 态 。 

2. 在 一 个 页 面 中 ，Session 变量 、Application 变量 、 普 通 变 量 和 数组 变量 的 名 称 可 以 
一 样 吗 ? 

3. 如 果 客 户 端 浏览 器 不 支持 Cookie， 那 么 能 支持 Session 吗 ? 

4. 请 问 在 Globalasa 文件 中 可 以 使 用 Response.Write 语句 吗 ? 


6.4.4 ”操作 题 


1. 编写 程序 实现 一 个 简单 的 聊天 室 ， 要 能 显示 发 言 人 姓名 、 发 言 内 容 、 发 言 人 IP 地 
址 和 发 言 时 间 。 另 外 ， 要 求 过 滤 掉 用 户 输入 的 <p>、<br> 等 特殊 字符 。 

2. 编写 两 个 页 面 ， 在 第 一 个 页 面 中 用 户 要 输入 姓名 ， 然 后 保存 到 Session 中 ， 自 动 引 
导 到 第 二 个 页 面 。 在 第 二 个 页 面 中 读 取 该 Session 信息 ， 并 显示 欢迎 信息 。 如 果 用 户 没有 
在 第 一 页 登录 就 直接 访问 第 二 页 ， 要 将 用 户 重 定向 回 第 一 页 。 


第 7 章 ” ASP 的 常用 组 件 


教学 目标 
通过 对 本 章 的 学 习 , 读者 应 了 解 一 些 ASP 内 置 组 件 的 属性 和 方法 ， 并 能 够 编程 实现 内 
置 组 件 的 一 些 基本 功能 。 


e@ Ad Rotator 组 件 

e@ ”Content Rotator 组 件 

e@ Content Linker 组 件 

e@ Browser Capabilities 组 件 


Linker 组 件 、Dictionary 组 件 、Connection 组 件 、RecordSet 组 件 和 Command 组 件 等 。 组件 
实际 上 就 是 已 经 在 服务 器 上 注册 的 ActiveX 控件 ， 用 户 也 可 以 利用 如 Visual Basic、C++、 
Visual C++、Java 等 开发 工具 创建 自己 的 组 件 。 


7.1 使 用 Ad Rotator 组 件 制 作 广告 轮 显效 果 


使 用 Ad Rotator 组 件 可 快速 在 网 站 上 建立 一 个 广告 系统 , 它 允 许 每 次 访问 ASP 页 面 时 
在 页 面 上 显示 新 的 广告 ， 并 且 提 供 了 很 强 的 功能 ， 例 如 ， 旋 转 显示 在 页 面 上 的 广告 图 像 的 
能 力 、 跟 踪 特 定 广告 显示 次 数 的 能 力 以 及 跟踪 客户 端 在 广告 上 单 击 次 数 的 能 力 。 下 面 将 具 
体 介绍 Ad Rotator 组 件 的 应 用 。 

Ad Rotator 组 件 的 用 法 与 内 置 对 象 非常 相似 ， 首 先 要 用 到 Server 对 象 的 CreateObjectO) 
方法 创建 对 象 实例 。Ad Rotator 组 件 共 有 3 个 属性 和 1 个 方法 ， 如 表 7-1 所 示 。 


表 7-1 Ad Rotator 组 件 


属性 或 方法 功能 说 明 使 用 方法 
Border 属性 设 定 广告 图 片 的 边 宽大 小 Ad.BorderSize(size) 
Clickable 属性 设 定 广告 图 片 是 否 提供 超 链接 功能 Ad.Clickable(Boolean) 
TargetFrame 属性 设 定 超 链 接 后 浏览 Web 页 面 的 目标 窗口 Ad.TargetFrame(target) 


GetAdvertisement() 方 法 取得 广告 信息 文件 Ad.GetAdvertisement(strin 
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以 上 属性 与 使 用 方法 如 下 所 示 : 


<% 
Set Ad=Server.CreateObject("MSWC.AdRotator") 
Myad.BorderSize(1) "设置 广告 图 片 的 边 宽 为 1 
Myad.Clickable(true) 为 广告 图 片 设置 超 链接 
Myad.TargetFrame( self) "设置 浏览 Web 页 面 的 目标 窗口 
%> 
<% 
=Ad.GetAdvertisement(adrot.txt) "获取 广告 信息 内 容 文件 adrot.txt 
%> 


Ad Rotator 组 件 用 了 


网 站 上 轮流 显示 广告 的 内 容 ， 按 照 广告 商 给 网 站 的 资金 量 来 安排 


b 


各 个 不 同 广告 内 容 的 出 现 概率 。 每 次 页 面 重新 载 入 到 浏览 器 时 ， 程 序 都 会 根据 概率 选 
告 条 。 使 用 该 组 件 显示 广告 需要 以 下 3 个 文件 : 

e@ AD Rotator 计划 文件 ， 记 录 所 有 广告 信息 。 
重 定向 文件 ， 对 单 击 广告 条 的 事件 进行 处 理 。 


e 广告 显示 页 面 ， 建 立 和 显示 广告 条 。 


7.1.1 创建 Ad Rotator 计划 文件 


| 


Ad Rotator 组 件 是 通过 读 取 Ad Rotator 计划 文件 来 完成 工作 的 。Ad Rotatar 计划 文件 
包括 与 要 显示 的 图 像 文件 的 地 点 有 关 的 信息 以 及 每 个 图 像 的 不 同属 性 。 下 面 是 一 个 标准 的 


AD Rotator 计划 文件 : 
Redirect http://dusiming 广告 被 单 击 后 所 指向 的 文件 
width 400 "以 像素 为 单位 指定 广告 的 宽度 
height 50 "以 像素 为 单位 指定 广告 的 高 度 
border0 "以 像素 为 单位 指定 广告 四 周 的 边框 宽度 
二 "分 隔 符号 
baidu.gif "该 广告 的 图 像 文件 名 及 位 置 
http://www.baidu.com 单 击 该 广告 后 要 转 到 的 URL 值 
百度 站 点 "图 像 的 替代 文字 
5 广告 的 显示 频率 ， 频 率 越 高 显示 的 次 数 也 越 多 
google.gif 
http://www.google.com 
谷歌 站 点 
15 
youdao.gif 
http://www.youdao.com 
有 道 站 点 
10 
AD Rotator 计划 文件 由 两 部 分 组 成 (这 两 部 分 由 全 是 星 号 “*” 的 一 行 隔 开 ); 


。 第 一 部 分 设置 应 用 


于 轮换 安排 中 所 有 广告 图 像 的 参数 。 
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e 第 二 部 分 指定 每 个 单独 广告 的 文件 和 位 置信 息 以 及 应 当 接 收 的 每 个 广告 的 显示 时 
间 所 占 百分比 。 
在 第 一 部 分 中 有 4 个 全 局 参数 ， 每 个 参数 都 由 一 个 关键 字 和 值 组 成 。Redirect 行 指出 
该 广告 链接 到 的 URL 地 址 ， 星 号 上 面 的 其 余 3 行 简单 说 明 如 何 显示 广告 。Width 和 Height 
行 以 像素 为 单位 指定 网 页 上 广告 的 宽度 和 高 度 ， 默 认 值 是 440 像素 和 60 像素 。Border 行 
以 像素 为 单位 指定 广告 四 周 超 链 接 的 边框 宽度 ， 默 认 值 为 1 像素 ， 如 果 将 该 参数 设置 为 0， 
该 广告 则 将 没有 边框 。 这 4 个 参数 都 是 可 选 的 ， 如 果 用 户 未 指定 它们 的 值 ， 则 Ad Rotator 
组 件 将 使 用 默认 的 值 。 
星 号 下 面 的 第 二 部 分 以 每 4 行为 一 个 单位 ， 描 述 每 个 广告 的 具体 内 容 。 每 个 广告 的 描 
述 包含 图 像 文件 的 URL、 广 告 的 主页 URL( 连 字符 “-” 可 指出 该 广告 没有 链接 ) 和 图 像 的 
替代 文字 ， 以 及 指定 该 页 与 其 他 页 交替 显示 频率 的 数值 。 要 确定 广告 显示 的 频率 ， 可 以 将 
计划 文件 中 所 有 广告 的 权 值 相 加 ， 在 该 例 中 总 数 是 30， 那 么 “百度 站 点 ”的 广告 权 值 为 5， 
这 意味 着 Ad Rotator 组 件 每 调用 6 次 ， 它 则 显示 一 次 。 


7.1.2 设置 广告 图 像 重 定向 文件 


广告 条 放置 到 网 站 后 ， 用 户 对 广告 条 进行 单 击 操作 后 ，ASP 就 会 打开 重 定向 文件 。 重 
定向 文件 通常 是 用 户 创建 的 文件 ， 它 包含 用 来 解析 由 Ad Rotator 对 象 发 送 的 查询 字符 串 的 
脚本 ， 并 将 用 户 重 定向 到 与 用 户 所 单 击 的 广告 相关 的 URL。 用户 也 可 以 将 脚本 包含 进 重 定 
向 文件 中 ， 以 便 统计 单 击 某 一 特定 广告 的 用 户 数目 并 将 这 一 信息 保存 到 服务 器 上 的 某 一 文 
件 中 ， 如 下 例 所 示 : 


<% 
' 将 本 将 单 击 情况 记录 到 Web 服务 器 日 志文 件 中 
Response.AppendToLog Request.QueryString("url") 
' 重 定向 到 广告 指定 的 站 点 
Response.Redirect (Request.Querystring("url")) 


%> 


注意 : 

Redirect 行 所 指示 的 不 是 为 广告 本 身 指定 的 URL， 而 是 将 调用 的 中 间 页 面 的 URL。 这 
样 ， 就 可 以 通过 这 个 中 间 页 面 跟踪 单 击 广告 的 次 数 。 该 Redirect URL 将 与 包含 两 个 参数 的 
查询 字符 串 一 起 调用 特定 广告 主页 的 URL 和 图 像 文件 的 URL。 


7.1.3 创建 网 站 广告 显示 页 面 


ASP 如 要 在 页 面 中 调用 Ad Rotator 组 件 , 首先 必须 使 用 Server.CreateObject0 方 法 实例 化 
AdRotator 对 象 。Ad Rotator 组 件 的 progid 属性 是 MSWC.AdRotator， 完 整 的 代码 如 下 : 
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< % Set ad = Server.CreateObject("MSWC.AdRotator") %> 
<%= ad.GetAdvertisement("/ads/adrot.txt") %> 


Ad Rotator 组 件 支持 的 唯一 方法 是 GetAdvertisement()， 它 只 有 一 个 参数 为 AdRotator 
计划 文件 的 名 称 。 注 意 指向 文件 的 路 径 是 从 当前 虚拟 目录 的 相对 路 径 ， 物 理 路 径 是 不 允许 


的 。GetAdvertisement() 方 法 从 Rotator 计划 文件 中 获取 下 一 个 计划 广告 的 详细 说 明 并 将 民 


格式 化 为 HTML 格式 。 下 面 的 HTML 由 GetAdvertisement() 方 法 生成 且 被 添加 到 网 页 的 输 


出 中 ， 以 便 显 示 Rotator 计划 文件 中 的 下 一 个 广告 。 


<A HREF="http://site?url=http://www.ut.com.cn&image=bookhome0722.gif' > 


<IMG SRC="bookhome0722.gif' ALT=" 图 书 之 家 " WIDTH=400 HEIGHT=50 BORDER=0></A> 


使 用 Ad Rotator 组 件 还 可 以 直接 通过 对 象 属性 (而 不 是 计划 文件 
些 广 告 特性 ， 其 可 用 属性 如 下 。 
e Border 属性 : 指定 广告 边框 的 大 小 。 


bh 的 设置 ) 直 接 控 制 某 


e Clickable 属性 : 指定 广告 是 否 有 与 之 相关 联 的 超 链接 。 默 认 值 为 True， 表 示 有 相 


关联 的 超 链 接 。 


e TargetFrame 属性 : 指定 要 打开 的 与 广告 相关 联 的 超 链接 的 框架 名 称 。 


【 例 7-1】 创 建 一 个 显示 广告 条 的 轮转 页 面 。 
(1) 将 如 图 7-1 所 示 的 3 幅 GIF 图 片 文件 复制 至 服务 器 主 目录 中 。 


N 
©) 


Baidu.gif xinlang.gif 
图 7-1 图 片 效果 


(2) 创建 一 个 名 称 为 adrot.txt 的 文件 ， 代 码 如 下 所 示 : 


Redirect adrot.asp 
width 200 

height 160 

border0 

六 

baidu.gif 
http://www.baidu.com 
百度 搜索 

3 

Xinlang.gif 


http://www.sina.com 


renren.gif 
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新 浪 网 站 

ho 

renren.gif 
http://www.renren.com 
人 人 网 站 

10 


(3) 将 adrottxt 文件 保存 至 服务 器 主 目录 中 。 
(4) 创建 一 个 名 称 为 adrot.asp 的 文件 ， 其 代码 如 下 所 示 : 


<HIML> 
<body> 
<%set myad=Server.CreateObject("MSWC.adrotator") 
myad.Border =0 
myad.Clickable = true 
myad. TargetFrame = AdFrame 
%> 
<% 
=myad.getadvertisement("/adrot.txt") 
%> 
<HR SIZE="1" COLOR="#000000"> 
<Center><A HREF="adrot.asp"> 重 新 刷新 本 页 </A></center> 
</BODY> 
<HIML> 


(5) 将 adrot.asp 文件 保存 至 服务 器 主 目录 中 。 
(6) 运行 adrot.asp 页 面 后 ， 结 果 如 图 7-2 所 示 。 


柄 htpy/1921681.77/adrar x | 十 篇 x 
位 Q 9 :LR*MIL:] 


重新 有 新 本 页 重新 到 新 本 页 
加 二 器 皮下 载 VS 加 下 器 名 下 载 | 子 ] 而 多 双双 
(a) 单 击 广告 图 片 (b) 刷新 广告 图 片 


图 7-2 网 页 效果 


(7) 重新 创建 adrot.asp 文件 ， 其 代码 如 下 所 示 : 


<% 
' 将 本 将 单 击 情况 记录 到 Web 服务 器 日 志文 件 中 
Response.AppendToLog Request.QueryString("url") 
' 重 定向 到 广告 指定 的 站 点 
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ResponseRedirect (Request. Querystring("url")) 

%> 

(8) 将 上 面 创建 的 adrot.asp 文件 保存 至 服务 器 主 目录 中 。 这 时 ， 如 果 用 户 运 行 该 文 
件 ， 并 再 次 单 击 图 7-2 所 示 网 页 中 的 网 站 广告 图 片 ， 浏 览 器 将 会 自动 跳 转 到 相关 的 网 站 ， 
如 图 7-3 所 示 。 


| | Ser = Cat Inna 
A A 编 避 -3 窗 男 [BR 四 |E 言 |*| 四 Q 
前 博 “大 记 下 在 捷 ， 直 生 铺 绒 直上 | 
外 育 NBA 中 至 本 它 5 栏 天 气 被 蔬 历史 届 片 
om 
汽车 ”报价 ”买房 产 二 手册 家 后 了 时尚 女性 收藏 
土 计 三 于 新 势力 润 区 入 南 看 并 粹 0 元 志 海 县 羽 立 省 3 万 五 量 百 应 邹 
重新 刷新 本 页 
天 手电 器 城 一 
TFTISITETTESTEST - ro TR 
(a) 单 击 广告 图 片 (b) 跳 转 链接 页 面 


图 7-3 在 当前 窗口 中 跳 转 广告 
(9) 建立 一 个 广告 信息 显示 文件 ， 代 码 如 下 : 


<% 
dimad 
set ad=server.createobject("MSWC.AdRotator") 
ad.Border=0 ' 设 置 广告 图 片 的 边 宽 为 0 
ad.Clickable=true ' 设 置 广告 图 片 的 超 链接 
ad.TargetFrame="trget=" new" ' 设 置 在 新 窗口 打开 超 链 接 
Tesponse.write Ad.GetAdvertisement("adrot.txt") 

%> 


(10) 将 以 上 代码 以 line.asp 文件 保存 ， 运 行 后 的 结果 如 图 7-4 所 示 。 


而 hapy/192.168.177/ine. 十 
外 斌 而 [I 虽 6 和 | Rs 
MI iY 篇 四 富国 G00gle Gl ee 


a 芭 本 简 本 下 也 和 


Bai 必 下 


Err ET 


(a) 单 击 广告 图 片 (b) 在 新 窗口 中 打开 链接 页 面 
图 7-4 ”在 新 窗口 中 跳 转 页 面 
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注意 : 

由 于 Windows 7 操作 系统 没有 自 带 Ad Rotator 组 件 ， 因 此 如 果 用 户 使 用 该 系统 作为 
ASP 动态 网 站 服务 器 ,就 需要 下 载 adrot.dll 文件 ， 并 将 其 复制 到 C:/windows/system32 文件 
夹 中 ， 再 以 管理 员 身 份 运行 CMD 程序 ， 执 行 Regsvr32 adrot dll 命令 。 


7.2 ”使 用 Browser Capabilities 组 件 检测 浏览 器 


Browser Capabilities 组 件 用 于 检测 客户 端 浏览 器 的 能 力 。 通 过 该 组 件 ， 可 以 知道 浏览 
器 的 名 称 、 版 本 ， 以 及 是 否 支持 框架 、ActiveX 控件 、Cookie 和 脚本 程序 等 。 

Browser Capabilities 组 件 的 工作 原理 如 下 : 当 客户 端 浏览 器 向 服务 器 发 送 页 面 请 求 时 
会 自动 发 送 一 个 User Agent HTTP 标题 ， 而 该 标题 是 一 个 声明 浏览 器 及 其 版 本 的 ASCI 字 
符 串 ， 而 Browser Capabilities 组 件 就 将 User Agent 映射 到 在 文件 Browscap.ini 中 所 注 明 的 
浏览 器 ， 并 通过 BrowserType 对 象 的 属性 识别 客户 浏览 器 。 

若 该 对 象 在 browscap.ini 文件 中 找 不 到 与 该 标题 匹配 的 项 ， 那 么 将 使 用 默认 的 浏览 器 
属性 。 若 该 对 象 既 未 找到 匹配 项 且 browscap.ini 文件 中 也 未 指定 默认 的 浏览 器 设置 ， 则 它 
将 每 个 属性 都 设 为 字符 串 UNKNOWN。 

在 默认 情况 下 ，browscap.ini 文件 被 存放 在 C\WINDOWS\system32\inetsrv 目录 中 ,用 
户 可 以 编辑 这 个 文本 文件 ， 以 添加 属性 或 者 根据 最 新 发 布 的 浏览 器 版 本 的 更 新 文件 来 修改 
该 文件 。BrowserType 对 象 包含 的 属性 ， 如 表 7-2 所 示 。 

表 7-2 BrowserType 对 象 的 属性 
属 性 说 阴 说 明 
指定 该 浏览 器 是 否 支 持 背 景 
音乐 
指定 该 浏览 器 是 否 支持 


Browser 指定 该 浏览 器 的 名 称 Backgroundsounds 


Version 指定 该 浏览 器 的 版 本 号 VBScript 
VBScript 
Majorver 指定 主 版 本 号 JavaScript 指定 该 浏览 器 是 否 支 持 JScript 
指定 该 浏览 器 是 否 支持 了 
Wi 指定 副 版 本 号 vai nt Ee 
小 程序 
指定 该 浏览 器 是 否 支 持 
Frames 指定 该 浏览 器 是 否 支持 框架 |‖ ActiveXControls Ee 
ActiveX 控件 
Tables 指定 该 浏览 器 是 否 支持 表格 指定 该 浏览 器 是 有 为 测试 版 
指定 该 浏览 器 是 否 支 持 指定 该 浏览 器 是 否 支 持 频 道 
Cookies Cdf 
Cookie 定义 文件 
【 例 7-2】 使 用 Browser Capabilities 组 件 检测 浏览 器 的 常用 属性 。 


(1) 创建 一 个 名 称 为 Browser .asp 的 文件 ， 代 码 如 下 所 示 : 
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<Center><H1> 您 的 浏览 器 性 能 如 下 : </H1></Center> 
<H> 

<%set be=server.CreateObject("mswc.browsertype")%> 
<%if be.frames=true then%> 浏 览 器 支持 多 窗口 (frames) 显 示 
<%else%> 浏 览 器 不 支持 多 窗口 (frames) 显 示 

<%end ipb><br> 

<%if bec.backgroundsounds=true then96> 浏 览 器 可 以 播放 背景 音乐 (backgroundsounds) 
<%else%> 浏 览 器 不 能 播放 背景 音乐 (backgroundsounds) 
<%end if96><br> 

<%if bc.tables=true then96> 浏 览 器 支持 表格 (tables) 显 示 
<%else%> 浏 览 器 不 支持 表格 (tables) 显 示 

<%end ipb><br> 

<%if bec.beta=true then9%> 您 的 浏览 器 是 一 测试 版 (beta) 
<9%else%> 你 的 浏览 器 是 一 正式 版 

<%end if®6><br> 

<%if bc.activexcotrols=true then %> 浏 览 器 支持 active 控制 
<%else%> 浏 览 器 不 支持 active 控制 

<%end ipb><br> 

<%if bc.cookies=true then9%6> 浏 览 器 支持 cookie 功能 
<%else%> 浏 览 器 不 支持 cookie 功能 

<%end if®4><br> 

<%if be.vbscript=true then%> 浏 览 器 支持 vbscript 
<%else%> 浏 览 器 不 支持 vbscript 

<%end ipb><br> 

<%if be.jscript=true then9%b> 浏 览 器 支持 jscript 
<%else%> 浏 览 器 不 支持 jscript 

<%end if®0> 


(2) 将 Browser.asp 文件 保存 至 服务 器 主 目录 中 ， 运 行 后 的 结果 如 图 7-5 所 示 。 


romeracp -oP 一 Ec) 


en det 


| #3 http//192.168.1.77/Brow x | + 
C MI Ek 
济 歇 器 计 持 表格 ( 


和 中 您 的 浏览 器 性 能 如 下 : 


浏览 千 支 持 多 窗口 (frwmes) 显 示 
Ee 景 音乐 backgr oundsounds) 
浏 攻 吕 支持 表 迷 (tables) 旺 示 
顶尖 是 一 正式 版 


浏览 车 不 支持 active 控制 
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true theng 出 和 的 cao 浏 上 用 支持 vbscript 
支持 vbecript 浏览 器 不 支持 jseript 


i -中 加 器 心 下 载 | 四 疝 汪 马 @ 


图 7-5 检测 浏览 器 属性 
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7.3 使 用 Content Rotator 组 件 制作 内 容 轮 转 效 果 


Content Rotator 组 件 通过 读 取 计 划 文 件 完 成 网 页 内 容 的 显示 ， 通 常 是 自动 轮换 显示 一 
些 HTML 内 容 。 每 当 用 户 请 求 Web 页 时 ，Content Rotator 组 件 从 内 容 计划 文件 中 取得 待 显 
示 的 内 容 。 待 显示 内 容 可 以 是 HTML 能 够 表达 的 任何 内 容 ， 包 括 文本 、 图 像 和 超 链 接 等 。 

内 容 计 划 文 件 是 一 个 文本 文件 ， 它 提供 要 使 用 的 各 个 文本 字符 串 的 列表 ， 由 每 个 要 显 
示 的 列表 部 分 以 两 个 百 分 号 开始 ， 格 式 如 下 : 


%96 [权重 ] /注释 ] 

待 轮换 显示 的 内 容 

权重 设置 了 每 个 条 目 出 现在 返回 页 面 中 的 频率 列表 的 显示 频率 , 取 值 范围 为 0 一 65 535， 
默认 值 为 1。 

Content Rotator 组 件 有 ChooseContent0 和 GetAllContent() 两 个 方法 。ChooseContent() 方 
法 用 于 从 内 容 计 划 文 件 中 得 到 一 项 显示 内 容 ， 而 GetAllContent() 方 法 用 于 显示 内 容 计 划 文 
件 中 的 所 有 内 容 。 

【 例 7-3】 创 建 一 个 从 可 选 列表 中 随机 显示 内 容 的 页 面 。 
(1) 将 如 图 7-6 所 示 的 图 片 文件 t1.gif、t2.gif、t3.gif 和 t4.gif 复 制 至 服务 器 主 目录 中 。 


tl.gif t2.gif t3.gif t4.gif 
图 7-6 图 片 文件 


(2) 在 服务 器 主 目录 中 创建 一 个 名 称 为 Rotator.txt 文件 ， 在 该 文件 中 输入 以 下 代码 : 


%% #1// 铁 海棠 

<A Href="t].asp"><Img Src="tl.gif' Border=0></A> 

<p> 铁 海棠 (学 名 : Euphorbia milii Ch des Moulins) : 草 生 灌木 。 茎 多 分 枝 ， 长 60-100 厘米 ， 直 径 
5-10 毫米 ， 具 纵 棱 ， 密 生硬 而 尖 的 锥 状 刺 ， 常 呈 3-5 列 排列 于 棱 湖 上 ， 旦 旋转 。 叶 互生 ， 通 常 集中 于 嫩 枝 
上 ,倒卵形 或 长 圆 状 匙 形 ， 全 缘 ; 托 叶 钻 形 ， 长 3-4 毫米 ， 极 细 ， 早 落 。 花 序 2.4 或 8 个 组 成 二 歧 状 复 花 
序 ， 生 于 枝 上 部 叶腋 ， 总 苞 钟 状 ， 高 3-4 毫米 ， 直 径 3.5-4.0 毫米 ， 边 缘 5 裂 ， 裂 片 琴 形 ， 上 部 具 流苏 状 
长 毛 ， 且 内 弯 ; 腺 体 5 枚 ， 肾 圆 形 ， 黄 红色 。 雄 花 数 枚 ; 苞 片 丝 状 ， 先 端 具 柔 毛 ; 肉 花 1 枚 。 戎 果 三 棱 状 
卵 形 , 平滑 无 毛 ,成 熟 时 分 裂 为 3 个 分 果 阁 。 种 子 卵 柱状 ， 灰 褐色 ， 具 微小 的 疣 点 ; 无 种 皇 。 花 果 期 全 年 。 
</P> 

%% 雹 // 生 石花 

%%// 再 加 一 行 注释 

%%// 第 三 行 注释 
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<A Href="{2.asp"><Jmg Src="t2.gif' Border=0></A> 

<p> 生 石花 ， 又 名 石头 玉 ， 屁 股 花 ， 属 于 番 杏 科 、 生 石花 属 (Lithops sp.) 《或 称 石头 草 属 ) 物种 的 总 
称 ， 原 产 非洲 南部 及 西南 地 区 ， 常 见于 岩 床 缝隙 、 石 砾 之 中 。 被 喻 为 “有 生命 的 石头 ”。 非 雨季 生长 开花 ， 
盛 花 时 刻 , 生 石 花 犹 如 给 荒漠 盖 上 了 巨大 的 花 毯 。 但 当 干 旱 的 夏季 来 临时 , 荒漠 上 又 恢复 了 “石头 ”的 世界 。 
这 些 表面 没有 针 刺 保护 的 肉质 多 汁 植物 ， 正 是 因为 成 功 地 模拟 了 石头 的 形态 ， 这 被 称 为 “拟态 ”， 才 有 效 地 
骗 过 了 食 草 动物 ， 繁 衍 至 今 ， 形 成 了 植物 界 的 独特 景观 。</P> 

%% #3// 桃 美人 

<A Href="t3.asp"><Img Src="t3.gif" Border=0></A> 

<p> 桃 美人 (Pachyphytum “Blue Haze)， 为 景 天 科 、 厚 叶 草 属 多 肉 植物 ,也 称 多 浆 植物 ， 属 被 子 植物 。 
由 了 . bracteosum 和 稻田 姑 (P. glutinicaule) 杂交 而 来 。 叶 片 在 阳光 充足 且 温 差 大 的 环境 下 易 变 成 粉红 色 ， 
犹如 桃子 一 般 可 爱 肥厚 ， 因 此 受到 多 肉 植物 爱好 者 们 的 青睐 。 桃 美人 茎 短 且 粗 ， 直 立 。 单 株 约 12~ 20 片 
叶 ， 老 株 群生 。 叶 肉质 ， 互 生 ， 排 列 呈 延长 的 莲座 状 ， 呈 倒卵形 ， 长 2-4 厘米 ， 宽 、 厚 各 2 厘米 左右 ， 先 
端 平滑 钝 圆 ， 有 轻微 的 钝 尖 〈 养 的 好 的 桃 美 人 几乎 看 不 到 叶 尖 ) 叶 背 面 圆 凸 ， 正 面 较 平 ， 顶 端 ， 叶片 表面 
覆盖 白粉 ， 衬 托 叶片 的 粉红 色 ， 看 起 来 植株 呈现 漂亮 的 淡 紫 或 淡 粉色 ， 非 常 可 爱 。 花 序 较 矮 ， 花 倒 钟 形 ， 
红色 ， 串 状 排列 。 可 以 异 花 授 粉 。</P> 

%% #4// 龙 骨 柱 

<A Href="t4.asp"><Img Src="t4.gif' Border=0></A> 

<p> 龙 骨 柱 又 叫 龙骨 ， 植 株 三 棱 形状 ， 多 分 枝 ， 蓝 绿色 ， 高 4 米 至 5 米 ， 棱 边 有 小 刺 ， 极 短 。 龙 骨 柱 
夏季 开 白 花 ，4 末 至 9 打 ， 从 生 于 上 部 的 刺 座 上 ， 蛋 开 夜 闭 ( 令 栽 一 般 不 易 开 花 ) ， 浆 果 小 圆 形 ， 蓝 紫色 ， 
可 食 。 龙 骨 柱 多 种 多 样 ， 有 从 状 形 ， 三 柱 形 ， 九 柱 形 等 。 作 者 认为 九 柱 形 和 十 二 柱 形 蔚 为 壮观 ， 整 形 具体 
做 法 为 。 九 柱 形 植 株 生长 到 20 厘米 至 30 厘米 时 ， 用 利 刀 将 项 端 前 去 ， 立 即 用 草木 灰 封 住 ， 待 植株 生长 
出 分 枝 后 ， 只 保留 项 端的 三 个 分 枝 ， 要 求 每 角 一 个 ， 其 余 抹 去 。 第 二 层 再 长 到 25 厘米 至 30 厘米 时 ， 再 将 
顶端 前 去 ， 分 枝 生 出 后 仍 选 三 个 分 枝 ， 每 角 3 个 ， 即 1、3、9 形 的 龙骨 。 十 二 柱 形 选 角 方 法 同上 ， 只 是 
在 9 柱 形 生长 到 20 厘米 至 30 厘米 时 ， 前 去 项 端 再 培养 三 个 分 枝 ， 每 角 选 1 个 或 3 个 。 其 余 小 分 枝 ， 随 
长 随 抹 去 ， 保 持 树 形 一 致 。</P> 


(3) 使 用 记事 本 工具 创建 Rotator.asp 文件 ， 其 代码 如 下 所 示 : 


<Html> 
<Head> 
<Title> 
随机 目录 条 
</Title> 


一 本 页 面 是 随机 显示 的 内 容 ， 刷 新 后 显示 结果 会 变化 -----------<br> 
<% 

set NextTip=Server.CreateObject("MSWC.ContentRotator") 
%> 

<%=NextTip.ChooseContent("Rotator.txt")%> 

<br> 

= -—-----------------<A Href="Rotator.asp"> 刷 新 </A> 


(4) 运行 Rotator.asp 文件 后 的 结果 如 图 7-7 所 示 。 
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图 77 网 页 切换 效果 
(5) 将 Rotator.asp 程序 代码 修改 为 如 下 所 示 : 


<Html> 
<Head> 
<Title> 
随机 目录 条 
</Title> 
</Head> 


<Body> 
-一 ------- 本 页 面 是 随机 显示 的 内 容 ， 刷 新 后 显示 结果 会 变化 -----------<br> 


<% 
set NextTip=Server.CreateObject("MSWC.ContentRotator") 
%> 
<%=NextTip.GetAllContent("Rotator.TXT")%> 
<br> 
-一 -一 -- ---------<A Hre 全 "Rotator.asp"> 刷 新 </A>-------------------------- 
</Body> 
</Html> 
(6) 运行 Rotator.asp 文件 后 ， 将 会 把 Rotator.txt 文件 中 所 有 内 容 解 释 执 行 ， 并 且 显 示 


在 浏览 器 上 的 结果 分 类 之 间 会 自动 添加 <hr> 水 平 线 。 


7.4 ”使 用 Content Linker 组 件 制作 页 面 索引 


Content Linker 组 件 可 在 一 系列 相互 关联 的 页 面 中 建立 一 个 目录 表 , 在 它们 中 间 建 立 动 
态 链 接 ,并 自动 生成 和 更 新 目录 表 及 先前 和 后 续 的 Web 页 的 导航 链接 。 该 组 件 常用 于 需要 
建立 大 量 页 面 为 访问 者 提供 导航 时 ， 例 如 联机 报刊 、 电 子 读物 网 站 以 及 论坛 邮件 等 。 
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7.4.1 Content Linker 组 件 简介 


在 网 站 浏览 一 个 在 线 内 容 较 多 的 页 面 组 时 ， 如 果 利用 Content Linker 组 件 建立 页 面 索 
引 ， 可 以 超 链接 到 组 内 的 任意 一 页 ， 每 一 页 可 以 向 前 或 向 后 翻 页 。 这 样 的 设计 不 仅 可 以 满 
足 巨 大 页 面 数量 的 页 面目 录 建 立 要求 ， 还 可 以 在 页 面 需要 扩充 时 ， 一 定 程度 上 减少 对 网 页 
内 容 的 修改 。 

当 ASP 网 站 的 设计 者 需要 建立 大 量 的 页 面 为 访问 者 提供 导航 时 ， 使 用 Content Linker 
组 件 可 以 起 到 事半功倍 的 效果 。 在 使 用 该 组 件 之 前 ， 设 计 者 首先 需要 编写 一 个 目录 文件 ， 
即 网 页 的 顺序 文件 ， 它 是 一 个 文本 文件 ， 可 以 自由 命名 。 


注意 : 
目录 文件 是 包含 一 系列 HTML 文件 列表 的 文本 文件 .每 一 行 都 指明 一 个 专门 的 HTML 
文件 ， 该 Web 页 的 描述 ， 是 一 个 可 由 可 无 的 注释 。 一 行 的 每 一 个 元 素 都 用 Tab 键 隔 开 。 


7.4.2 ”Content Linker 组 件 方法 


Content Linker 组 件 包括 如 表 7-3 所 示 的 方法 。 在 编写 一 个 ASP 文件 时 ， 它 根据 列表 
文件 的 信息 会 自动 生成 附带 超 链接 的 目录 页 。 如 果 设 计 者 需要 在 每 一 页 上 制作 一 个 如 “向 
前 翻 页 ”或 “向 后 翻 页 ”的 超 链接 ， 就 再 编写 一 个 能 自动 生成 翻 页 超 链接 的 包含 文件 ， 可 
使 用 .inc 为 扩展 名 ， 例 如 Nlink.inc， 以 后 在 组 件 内 每 一 页 中 都 包含 该 文件 。 

表 7-3 Content Linker 组 件 的 方法 

说 明 
显示 组 件 中 包含 的 链接 文件 数目 
显示 当前 页 在 这 些 链接 文件 中 的 前 后 位 置 索 引 值 
显示 链接 文件 中 下 一 个 文件 的 描述 
显示 链接 文件 中 下 一 个 文件 的 URL 地 址 
显示 链接 文件 中 第 N 个 文件 的 描述 
显示 链接 文件 中 第 NN 个 文件 的 URL 地址 
显示 链接 文件 中 前 一 个 文件 的 描述 
显示 链接 文件 中 前 一 个 文件 的 URL 地 址 


组 件 方法 
GetListCount( 目 标 文件 名 ) 
GetListIndex( 目 标 文件 名 ) 
GetNextDescription( 目 标 文件 名 ) 
GetNextURL( 目 标 文件 名 ) 
GetNthDescription( 目 标 文件 名 , N) 
GetNthURL( 日 标 文件 名 , N) 
GetPreviousDescription( 目 标 文件 名 ) 
GetPreviousURL( 目 标 文件 名 ) 


在 使 用 内 容 链接 组 件 时 ， 应 首先 建立 Content Linker 组 件 ， 具 体 方法 如 下 : 


Set mylinks=Server.CreateObject("MSWC.Url") 
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7.4.3 使 用 Content Linker 组 件 创建 管理 对 象 


Content Linker 组 件 可 以 创建 管理 URL 列表 的 URL 对 象 .要 使 用 Content Linker 组 件 ， 
必须 先 创建 Content Linking List 文件 。Content Linker 组 件 正 是 通过 读 取 该 文件 来 获取 处 理 
设计 者 所 希望 链接 的 页 面 信息 。 该 文件 是 一 个 纯 文 本 文件 ， 例 如 : 


Xajh01.asp 第 一 章 灭门 
Xajh02.asp 第 二 章 聆 秘 
Xajh03.asp 第 三 章 救 难 


Xajh40.asp 第 四 十 章 曲 谐 
Xajh41.asp 后 记 


这 个 文本 文件 的 每 行 有 以 下 形式 : 
url description comment 


其 中 ，URL 是 与 页 面相 关 的 超 链 接地 址 ，description 提供 了 能 被 超 链接 使 用 的 文本 信 
息 ，comment 则 包含 了 不 被 Content Linker 组 件 解释 的 注释 信息 (description 和 comment 均 
为 可 选 参 数 )。 


<html> 
<head> 
<meta http-equiv="content-Type" content="text/html:charset=gb2312"> 
<title> 简 单 实例 </title> 
</head> 
<body> 
<p> 
<% 
set link=server.createobject("MSWC.url") 
count=link.getlistcount("url.txt") 
dimi 
for i=] to count 
%> 
<ul><li><a href="<%=link.getnthURL("urltxt",D)%>"> 
<% 
=Link.GetnthDescription("url .txt",i) 
%></a> 
<% 
next 
%> 
</body> 
</html> 
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在 以 上 代码 中 ， 先 用 GetListCount0 方 法 确定 在 urltxt 文件 中 有 多 少 条 项 目 ， 然 后 利 
循环 语句 ， 并 使 用 GetNthURLO、GetNthDescription() 方 法 逐一 将 存储 在 url.txt 文件 中 的 内 
容 读 出 并 显示 给 客户 端 浏 览 器 。 

在 创建 网 站 总 导航 页 面 之 后 ， 若 用 户 还 需要 在 页 面 中 添加 “上 一 页 ”或 “下 一 页 ”的 
导航 链接 ， 可 以 参考 下 面 的 代码 实现 : 


<% 
Set link=server.CreateObject("MSWC.Url") 
count=link.getlistcount("url.txt") 
current=link.getlistindex("url.txt") 
if current>1 then 
%> 
<a href="<%=link.getpreviousURL("url.txt")%>"> 
上 一 页 </a> 
<% 
endif 
if current<count then 
%> 
<a href="<%=link.getnextURL("url.txt")%>"> 
下 一 页 </a> 
<% 
endif 
%> 


将 以 上 代码 放 入 每 个 页 面 中 即 可 。 

注意 : 

若 网 站 有 一 系列 相互 关联 的 页 面 ，Coutent Linker 组 件 非 常 适合 此 类 需求 该 组 件 既 可 
以 使 这 些 页 面 中 建立 一 个 目录 表 ， 还 能 够 在 它们 中 间 建 立 动态 链接 ， 并 且 自 动 生成 和 更 新 
目录 表 及 先前 和 后 续 的 Web 页 的 导航 链接 。 

【 例 7-4】 使 用 Content Linker 组 件 ， 从 列表 文件 中 创建 一 个 图 书目 录 表 。 

(1) 创建 一 个 名 称 为 list txt 的 文件 ， 代 码 如 下 所 示 : 


Xajh01.asp 第 一 章 灭门 
Xajh02.asp 第 二 章 聆 秘 
Xajh03.asp 第 三 章 救 难 
Xajh04.asp 第 四 章 坐 斗 
Xajh38.asp 第 三 十 八 章 聚 歼 
Xajh39.asp 第 三 十 九 章 拒 盟 
Xajh40.asp 第 四 十 章 ” 曲 谐 
Xajh41.asp 后 记 
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(2) 将 listtxt 文件 保存 至 服务 器 主 目 录 中 。 
(3) 创建 一 个 名 称 为 listasp 的 文件 ， 其 代码 如 下 所 示 : 


<Html> 
<Title> 金 庸 小 说 《 笑 傲 江湖 》 图 书目 录 </Title> 
<Center><H1> 笑 傲 江湖 </H1></Center> 
<Hi><Ul> 
<%Set ML = Server.CreateObject("MSWC.Nextlink")%> 
<% 
intCount = ML.GetListCount("list.TXT") 
Fori= 1 To intCount 
%> 
<Li> &nbsp&nbsp 
<a href="<%=ML.GetNthURL("list.TXT", i) %>"> 
<%=ML.GetNthDescription("list.TXT", i) %> 
</a> 
<Br 
<%Next%> 
<U> 
</Html> 


(4) 将 以 上 代码 保存 至 服务 器 主 目录 中 ， 再 将 相应 的 页 面 内容 文 件 (Xajh01.asp 一 
Xajh41.asp) 复 制 到 list.asp 文件 所 在 目录 后 ， 运 行 list.asp 文件 的 结果 如 图 7-8 所 示 。 


= we a|+ 
篇 Fr 加 | 蝇 1921681.777-6 人 |" 加 a 
: 一 | 加 1921681777-6 合 - 因 a 
笑 做 江湖 第 = 这 只 和 


把 起 马 ， 提 上 二 和 方 人 千 、 于 人 剖 一 撞 ， 但 心 祸 点 了 几 外 穴 沸 ， 
六， 又 检 了 各 全， 从 直下 Ti 
- i 于 


人 训 时 电 起 ， 手 给 长 剑 ， 神 向 后 进 。 大 门口 人 影 一 四， 一 人 悄 纵 声 的 章 了 进来 ， 一 把 可 
全 林 十 之 的 后 领 ， 提 了 起 永 。 必 干 之 “ 啊 ” 的 一 声 低 呼 ， 见 这 人 注 脸 四 四 凸凹 的 尽 是 总 淫 
区 好 而 起 祖 人 那 丑 女 抓 着 他 向 门 外 拖 去 ， 到 得 大 树 下 系 马 之 处 ， 左 手 
二 住 他 后 用 ， 双手 扣 着 他 放 上 一 匹 马 的 马华 。 林 王 之 正 谋 惕 间 ， 人 
一 醋 长 记 ， De | 又 在 马 导 上 轻 轻 一 刘 。 那 马 吃 痛 ， 一 } 
狂奔 


非 断 ， 放 开 四 跨 
ES 和 ”心中 记 接着 父母， a 人 
Rak 几 个 打 党 ， 擅 入 了 长 草 之 中 。 绪 马 却 训 不 停留 ， 远 ; 去 、 林 平 

mE 树枝 ， ee! 网 必 却 容 半分 力 扩 ， 只 排 起 只 许 ， | 人 


| 加 从 时 号 名 0 加 T 芝 | 二 | 而 邮局 吕 


图 7-8 页 面 索引 效果 


7.$S 使 用 Page Counter 组 件 设 计 网 站 计数 器 


Page Counter 组 件 用 于 创建 Page Counter 对 象 ， 该 对 象 用 于 记录 和 显示 Web 页 被 打开 
的 次 数 。 每 隔 一 定 的 时 间 ， 此 对 象 将 当前 的 页 面 访问 次 数 写 入 一 个 文本 文件 ， 这 样 就 可 以 
保证 数据 不 会 在 服务 器 关机 时 丢失 。Page Counter 组 件 使 用 一 个 内 部 Central Management 
对 象 来 记录 应 用 程序 中 的 每 一 页 被 打开 的 次 数 。 

Page Counter 对 象 有 3 个 方法 ， 即 Hits0、PageHit0 和 Reset0。 其 中 ，Hits(0 方 法 显示 
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指定 的 网 页 被 打开 的 次 数 ，PageHit0 方 法 使 当前 页 面 的 访问 次 数 增加 一 次 ，Reset0 方 法 将 


指定 的 页 的 访问 次 数 重 置 为 0。 


【 例 7-5】 使 用 Page Counter 对 象 跟踪 访问 者 的 个 数 并 发 送 访问 消息 给 第 每 个 网 站 的 


访问 者 ， 并 发 送 特 定 消息 给 第 1000 个 网 站 访问 者 。 


(1) 创建 一 个 名 称 为 Counter asp 的 文件 ， 代 码 如 下 所 示 : 


<% 
Set MyPageCounter = Server.CreateObject("MSWC.PageCounter") 
HitMe = MyPageCounter.Hits 
If HitMe = 1000 Then 
%> 
祝贺 您 ， 您 是 第 一 千 个 访问 者 ! <BR> 
<% Else %> 
欢迎 您 ， 你 是 第 #<%= HitMe %> 个 访问 者 <BR> 
<% 
End If 
%> 
<% 
MyPageCounter.PageHit 
%> 


(2) 将 Counter.asp 文件 保存 后 ， 运 行 的 结果 如 图 7-9 所 示 。 


| 看 ntpy/192.1684.771 x | 十 篇 砚 htpy/192.168.1.77/ x |‖ 十 
笋 讨 1 Q | Ar 7 © 家 田 | 加 "| 图 Googl Q 
欢迎 您 ， 你 是 第 #20 个 访问 者 祝贺 您 ， 您 是 第 一 千 个 访问 者 | 
] 加 速 器 上 下 载 | 卫 而 虽 避 久 5 加 速 器 此 下 载 | 加 凶 员 态 驴 > 


图 7-9 网 站 计数 器 效果 


7.6 使 用 Counters 组 件 创建 投票 计数 器 


Counters 组 件 用 于 创建 Counters 对 象 ， 该 对 象 可 创建 一 个 或 多 个 计数 器 ， 这 些 计 数 器 


用 于 跟踪 某 一 网 页 或 某 一 网 站 访问 次 数 的 信息 。 一 个 计数 器 是 包含 一 个 整数 的 持久 值 ， 一 
旦 创建 了 计数 器 ， 它 将 一 直 持 续 下 去 直到 被 删除 为 止 。 


Counters 对 象 有 4 个 方法 ， 如 表 7-4 所 示 。 
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为 


表 7-4 ”Counters 对 象 的 方法 
法 说 明 


GetO 


用 于 返回 计数 器 的 当前 值 ， 如 果 计数 器 不 存在 ， 则 创建 一 个 计数 器 并 将 值 设 为 0 


IncrementQO | 使 计数 器 的 值 递增 1， 如 果 计 数 器 不 存在 ， 则 创建 一 个 计数 器 并 将 值 设 为 1 


Set0 


将 计数 器 的 值 设 为 指定 的 值 ， 如 果 计 数 器 不 在 在 ， 则 创建 一 个 计数 器 并 将 值 设 为 指定 值 


Remove0 从 Counter 对 象 中 删除 一 个 计数 器 
一 个 站 点 只 能 创建 一 个 计数 器 组 件 ， 但 该 组 件 可 以 有 多 于 一 个 的 计数 器 。Counters 对 
象 通常 是 在 Globalasa 文件 中 用 以 下 命令 创建 


<OBJECTRUNAT=Server SCOPE=Application ID=Counter PROGID="MSWC.Counters"> 


</OBJECT> 

注意 : 

计数 器 不 受 作 用 域 限制 。 一 旦 创建 了 一 个 计数 器 ， 那 么 站 点 上 的 任何 页 都 可 以 检索 和 
控制 它 的 值 。 


《 


【 例 7-6】 使 用 Counters 组 件 创建 一 个 投票 计数 器 。 
1) 创建 一 个 名 称 为 remove.asp 的 ASP 文件 ， 代 码 如 下 所 示 : 


<% 


Set Counters=Server.Createobject("MSWC.Counters") 

vote = Request.QueryString("site") 

clear = Request.QueryString("clear") 

Counters.Increment(vote) 

If Not clear="" Then 
Counters.Remove(" 动 作 片 ") 
Counters.Remove(" 爱 情 片 ") 
Counters.Remove(" 伦 理 片 ") 

EndIf 


%> 


您 最 喜欢 哪 种 类 型 的 电影 ， 请 投票 : 

<Hr 

<FORM NAME="filmtype" METHOD="GET" ACTION="remove.asp"> 
<Input type="RADIO" NAME="site" VALUE=" 动 作 片 "> 动作 片 
<Input type="RADIO" NAME="site" VALUE=" 爱 情 片 "> 爱情 片 
<Input type="RADIO" NAME="site" VALUE=" 伦 理 片 "> 伦理 片 
<Br><Br><INPUT TYPE="SUBMIT" VALUE=" 我 要 进行 投票 "> 
< 人 FORM> 

<Hr 

当前 的 投票 结果 : <BR> 

动作 片 : <% =Counters.Get(" 动 作 片 ") %><BR> 

爱情 片 : <% =Counters.Get(" 爱 情 片 ") %><BR> 
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伦理 片 ，<% =Counters.Get(" 伦 理 片 ") %> 
<FORM NAME="Clear Counters" METHOD="GET" ACTION="remove.asp"> 
<INPUT TYPE="SUBMIT" VALUE=" 重 新 计 票 " NAME="clear"> 


</FORM> 


(2) 将 remove.asp 文件 保存 后 


， 其 运行 结果 如 图 7-10 所 示 。 


>) | 面 htpy/192168.177/remc x 〖 十 
”Ye 穿 廿 | 避 vj 恩 50 


| 入 而 hapy/192158177/remc x ‖ 二 
> 名 急 宇 团 | 加 "| 图 Google 


Q 


Q 
您 最 喜欢 哪 种 类 型 的 电影 ， 请 投票 : 您 最 喜欢 哪 种 类 型 的 电影 ， 请 投票 : 
C 动 作 片 人 爱情 片 “伦理 片 [6 助 作 片 爱情 片 伦理 片 
我 要 进行 投票 我 要 进行 投票 

当前 的 投票 结果 : 的 投票 结果 
六 次 

片 : 0 爱情 片 : 1 
伦理 片 : 0 伦理 片 : 1 
村 | _ 于 sfit 票 | 

加 二 司 下 载 | 加 襄 加 二 书坊 | 有 站 中 己 忆 


图 7-10 投票 计数 器 效果 


7.7 ”使 用 Permission Checker 组 件 检查 用 户 权 限 


PermissionChecker 组 件 用 于 创建 PermissionChecker 对 象 ， 该 对 象 使 用 IS 提供 的 密码 
验证 协议 来 确认 用 户 是 否 有 权限 读 取 某 个 文件 。PermissionChecker 对 象 只 有 一 个 
HasAccess() 方 法 ， 该 方法 决定 用 户 是 否 有 权 访 问 一 个 指定 的 文件 ， 如 下 例 所 示 : 


<% Set pmck = Server.CreateObject("MSWC.PermissionChecker") %> 
Physical Path Access = <%= pmcek.HasAccess("c:\pages\abc\default.htm") %> 
' 该 路 径 是 一 个 网 页 、 文 件 或 资源 的 物理 的 或 虚拟 的 路 径 

Virtual Path Access = <%= pmck.HasAccess("/abc/default.htm") %> 


注意 : 


可 以 使 用 PermissionChecker 对 象 定制 网 页 , 这 些 网 页 中 仅 包含 当前 用 户 允 许 访问 的 资 
源 的 链接 。 这 项 技术 可 用 来 隐藏 限制 访问 的 网 页 和 资源 ， 它 可 以 使 被 限制 的 访问 者 不 知道 


IIS 支持 匿名 、 基 本 和 集成 Windows 3 类 密码 验证 方法 。 当 启用 匿名 验证 时 ， 上 
需要 输入 用 户 名 或 密码 就 可 以 访问 站 点 的 公共 


户 不 


区 域 。 所 有 用 户 初 始 时 都 在 IIS 的 匿名 用 户 


账号 下 登录 ， 因 为 匿名 用 户 都 享有 相同 的 账号 ， 所 以 当 允 许 匿名 访 时 ，PermissionChecker 


组 件 将 无 法 确定 单个 用 户 的 身份 。 
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基本 验证 提示 用 户 输入 用 户 名 和 密码 ， 但 密码 用 明文 发 送 ， 优 点 在 于 它 是 HTTP 规范 
的 一 部 分 并 被 大 多 数 浏览 器 支持 ， 缺 点 是 浏览 器 使 用 基本 验证 是 以 未 加 密 的 形式 传输 密码 
的 , 这 样 通过 监视 网 络 通信 , 其 他 人 就 可 以 非常 容易 地 使 用 某 些 通用 工具 截取 和 破解 密码 。 

集成 Windows 验证 是 一 种 安全 的 验证 ,因为 用 户 名 和 密码 不 通过 网 络 发 送 , 用 户 的 浏 
览 器 通过 与 服务 器 进行 密码 交换 来 证 明 其 知晓 密码 。 

使 特定 的 ASP 页 拒绝 匿名 访问 有 两 种 方法 : 一 种 是 在 Windows 资源 管理 器 中 右 击 相 
应 的 ASP 文件 ， 然 后 在 快捷 菜单 中 选择 “属性 ”命令 ， 再 在 “安全 ”选项 卡 中 设置 该 文件 
允许 哪些 用 户 访问 ; 另 一 种 是 在 ASP 脚本 中 检查 环境 变量 LOGON _ USER 是 否 为 空 , 如 果 
为 室 ， 则 表示 当前 用 户 是 匿名 用 户 。 


7.8 使 用 MyInfo 组 件 存储 网 站 所 有 者 信息 


MyIfo 组 件 可 创建 一 个 MyInfo 对 象 ， 该 对 象 跟踪 Web 站 点 所 有 者 的 个 人 信息 ， 如 经 
营 Web 站 点 的 组 织 名 称 、 地 址 及 Web 站 点 的 设置 ， 还 有 Web 站 点 是 否 有 guest book。 

每 个 站 点 只 能 创建 一 个 MyInfo 对 象 ， 只 需要 创建 一 个 简单 的 MyIfo 组 件 的 实例 就 可 
以 使 Web 网 站 上 的 所 有 页 面 均 能 获得 其 信息 。 通常 是 在 Globalasa 文件 中 用 以 下 命令 创建 
MylInfo 对 象 ; 


<OBJECT RUNAT=Server SCOPE=Session ID=MyInfo PROGID="MSWC.MyInfo"> 
</OBJECT> 


创建 MyInfo 对 象 后 ， 它 的 属性 值 保存 在 文本 文件 myinfo xml 中 。myinfo.xml 默认 的 
保存 位 置 是 CWINDOWS\system32\inetsrv 目录 。 
MyInfo 组 件 默认 没有 属性 和 方法 ， 用 户 可 根据 需要 自行 添加 。 如 下 例 所 示 : 
<% 
objMyInfo.MyManager = "zhangshihua" 
objMyInfo.MyPhoneExtension = "03766123456" 
%> 


属性 添加 完成 后 ， 可 用 别 的 页 面 对 其 进行 调用 和 取 值 。 这 种 不 需要 Session 对 象 在 两 
个 页 面 请 求 之 间 存 储 值 的 方法 ， 为 将 来 可 能 改变 的 数值 提供 了 一 个 存储 区 域 。 采 用 这 些 值 
的 页 面 将 会 在 下 次 运行 时 自动 地 采集 这 些 变化 的 值 ， 从 而 避免 必须 编辑 大 量 的 其 他 页 面 。 
如 下 例 所 示 : 


<% 
strManagerName = objMyInfo.MyManager 
strPhoneExtension = objMyInfo.MyPhoneExtension 
%> 
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7.9 使 用 Tools 组 件 创 建 Tools 对 象 


Tools 组 件 创建 一 个 Tools 对 象 , 该 对 象 提供 的 实用 程序 可 使 用 户 很 容易 地 将 高 级 功能 
加 入 到 Web 页 中 。Tools 组 件 提供 了 生成 随机 数 、 检 查 文件 是 否 存在 或 处 理 HIML 表格 的 
方法 ， 如 表 7-5 所 示 。 


表 7-5 Tools 对 象 的 方法 
廊 。 法 说 ”了 明 
FileExistsO | 检查 文件 是 否 存 在 
检查 当前 用 户 是 否 是 站 点 所 有 者 
检查 服务 器 插件 是 否 存在 (只 适用 于 _ Macintosh 计算 机 ) 


ProcessFormO) 处 理 HIML 表单 
Randomg0 生成 一 个 随机 整数 
注意 : 


Random() 方 法 产生 一 个 位 于 -32 768 一 32 767 的 随机 整数 . 为 了 获得 一 个 指定 范围 的 整 
数 ， 可 以 使 用 脚本 语言 中 的 ABS 函数 并 对 下 一 个 最 大 的 整数 取 模 。 


【 例 7-7】 使 用 Tools 组 件 生成 随机 整数 。 
(1) 创建 一 个 名 称 为 Tools.asp 的 文件 ， 代 码 如 下 所 示 : 


<HIML> 
<H2> 用 Tools 组 件 生成 随机 整数 </H2><br> 
<Hr> 
<% 
Set Tools=Server.CreateObject("MSWC.Tools") 
%> 
<% 
RandInt=Tools.Random 
Response.Write "下 面 是 一 个 随机 生成 的 整数 : "&RandInt&"<Br>" 
RandInt=Abs(Tools.Random ) 
Response.Write "下 面 是 一 个 随机 生成 的 正 整 数 : "&RandInt&"<Br>" 
RandInt=Abs(Tools. Random )Mod 200 
Response.write "下 面 是 一 个 随机 生成 的 在 0~200 之 间 的 正 整数 : " &RandInt&"<Br>" 
RandInt=(Abs(Tools.Random)Mod 51)+50 
Response.write "下 面 是 一 个 随机 生成 的 在 50~100 之 间 的 正 整 数 : " &RandInt&"<Br>" 
%> 
<Hr> 
A Hef "tools asp 刷新 二 A 
</HIMIL> 
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人 ER 肥大 万 htpy/1921681777 x e+ 
CE 窗 田 | 尽 " 图 < Qj sy 的 ”GS 窗 力 | 加 "| 图 Googl Q 


用 Tools 组 件 生成 随机 整数 


下 面 是 一 个 随机 生成 的 整数 : eo 
下 面 是 一 个 随机 生成 的 


正 整数 : 
策 面 是 一 个 随机 生成 的 在 0 7200 之 问 的 正 扣 数 : 9 
下 面 是 一 个 随机 生成 的 在 50`100 之 间 的 正 整数 : 


用 Tools 组 件 生 成 随机 整数 


面 是 一 个 随机 生成 的 整数 : -8957 
面 是 一 个 随机 生成 的 正 整数 : 30333 


面 是 一 个 随机 生成 的 在 0~200 之 间 的 正 整数 : 104 
面 是 一 个 随机 生成 的 在 50`100 之 间 的 正 整数 : 66 


es -出 新 a 


Er PT J 


一 一 一 一 一 一- 秽 泗 一 一 一 一 


J B®s 加 加 器 心 下 载 | 卫 而 叫 避 忆 ? 


图 7-11 随机 生成 整数 


7.10 ”使 用 IIS Log 组 件 抽取 IIS 日 志 信息 


IIS Log 组 件 创建 一 个 HS Log 对 象 ， 该 对 象 使 应 用 程序 能 从 IIS 日 志文 件 中 抽取 特定 
类 型 的 信息 。 当 用 户 是 服务 器 上 的 系统 管理 员 或 操作 员 时 ，IIS Log 组 件 特别 有 用 。 可 以 使 


用 下 面 的 脚本 创建 ISLog 对 象 : 


Set objLog=Server.CreateObject(MSWC.IISLog) 


IIS Log 对 象 提供 的 方法 ， 如 表 7-6 所 示 。 


表 7-6 llSLog 对 象 的 方法 


六 -法 说 ”了 明 
AtEndOfLo 确定 所 有 记录 是 否 已 从 日 志文 件 中 读 出 
CloseLogFilest 关闭 所 有 打开 的 日 志文 件 
OpenLogFile0 为 读 或 写 打开 一 个 日 志文 件 
ReadFilter() 从 日 志文 件 中 读 取 指定 日 期 和 时 间 范 围 的 记录 
ReadLogRecordt 从 当前 日 志文 件 中 读 取 下 一 个 可 用 的 Log 记录 
WriteLogRecordO) 写 一 个 Log 记录 到 当前 日 志文 件 中 


7.11 利用 Dictionary 对 象 保 存 字 典 对 象 


Dictionary 对 象 是 保存 键 和 项 目 相 对 的 字典 对 象 ， 字 典 中 


的 项 目 (可 以 是 任何 形式 的 数 


据 ) 被 保存 在 数组 中 ,每 项 都 与 唯一 的 键 相关 联 。 键 值 用 于 检索 单个 项 目 ， 通 常 是 整数 或 字 


符 串 ， 但 不 能 为 数组 。 
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Dictionary 对 象 包含 的 属性 和 方法 ， 如 表 7-7 所 示 。 


表 7-7 Dictionary 对 象 的 属性 和 方法 


属性 或 方法 说 明 
ArrayMode 属性 数组 访问 模式 ， 允 许 以 下 标 方式 访问 ， 默 认为 tme 
Count 属性 返回 一 个 对 象 中 的 项 目 数 ， 只 读 属 性 
Item 属性 在 一 个 Dictionary 对 象 中 设置 或 者 返回 所 指定 key 的 item 
Items 属性 以 数组 方式 返回 对 象 中 的 全 部 项 目 
Key 属性 根据 下 标 取得 关键 字 的 键 值 ， 只 读 属 性 
Keys 属性 以 数组 方式 返回 对 象 中 的 全 部 键 值 
Add( 方 法 向 对 象 中 添加 一 个 关键 字 项 目 对 
Exists0 方 法 如 果 对 象 中 存在 所 指定 的 关键 字 则 返回 tue， 否 则 返回 false 
Join0 方 法 返回 一 个 字符 串 ， 此 字符 串 由 包含 在 对 象 中 的 所 有 数据 键 和 项 目 对 连接 创建 
Load0 方 法 从 指定 的 数据 源 装载 对 象 内 容 
Remove() 方 法 从 一 个 Dictionary 对 象 中 删除 一 个 关键 字 项 目 对 
RemoveAll0 方 法 从 一 个 对 象 中 删除 所 有 的 项 目 
Save0 方 法 转 储 对 象 中 的 内 容 到 指定 的 目标 
Sort0 方 法 排序 对 象 中 的 数据 ， 可 以 指定 升序 和 降序 
Split0 方 法 分 析 给 定 的 字符 串 ， 将 分 解 出 的 子 字符 串 填充 到 对 象 中 
当 以 数字 作为 下 标 查询 Dictionary 对 象 时 ， 数 字 表 示 按 照 插 入 顺序 的 下 标 ， 顺 序 从 0 
开始 。 如 果 其 中 某 个 数据 键 被 删除 ， 则 其 后 插入 的 数据 键 的 下 标 依次 前 移 。Dictionary 对 
象 的 键 值 如 果 为 字符 串 时 将 忽略 字符 串 的 大 小 写 。 
Dictionary 对 象 的 默认 属性 为 Iem, 所 以 可 以 直接 对 Dictionary 对 象 进行 默认 操作 。 例 


如 dict("e") 与 dict.Item("e") 的 作用 是 完全 等 同 的 。 如 下 例 将 插入 一 些 关 键 字 项 目 对 , 然后 修 
改 项 目 c 为 第 二 个 插入 的 项 目 。 


Set dict = CreateObject("NetBox.Dictionary") 
dict.Add "a", "Athens" 
dict.Add "b", "Belgrade" 
dict.Add "ec", "Cairo" 


dict("ce") = dict(1) 


【 例 7-8】 用 列表 方式 显示 出 字典 中 所 有 项 目的 值 。 
(1) 创建 一 个 名 称 为 Dictionary.asp 的 文件 ， 代 码 如 下 所 示 : 


<H3> 添 加 字典 条 目 </H3> 
<Form Action="<%=Request.ServerVariables("Script_ Name")%>"> 
<Input Type="Text" Name="Key"> 
<Input Type="Text" Name="value"> 
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<Input Type="submit' Value=" 添 加 条 目 "> 
</Form> 
<Hr> 
<% 
Dim strToDict 
strToDict=Trim(Request.Querystring("key")) 
strValue=Trim(Request.Querystring("value")) 
If Len(strToDict)>0 Then 
只 查 字典 是 否 存 在 
If IsEmpty(Session("MyDict")) Then 
Set Session ("MyDict")=Server.CreateObject("Scripting.Dictionary") 
EndIf 
Dim myLocalDict 
Set myLocalDict=Session("MyDict") 
myLocalDict.Add strToDict,strValue 
EndIf 
%> 
<H3> 列 表 字 典 的 内 容 </H3> 
<% 
If IsEmpty(Session("MyDict")) Then 
Response.Write "字典 是 空 的 ! " 
Else 
Dim aKeys,aValues,i 
Set myLocalDict=Session("MyDict") 
aKeys=myLocalDictKeys 
aValues=myLocalDictItems 
For i=0 To myLocalDictCount-1 
Response. Write aKeys(i)&"="&aValues(D)&"<Br>" 
Next 
End If 
%> 


(2) 将 Dictionary.asp 文件 保存 后 ， 其 运行 结果 如 图 7-12 所 示 。 


的 世 hitps/i92168. 


添加 字典 条 目 | 


添加 字典 条 目 


httpy/192.168177/Dictic x 
出 司 


添加 字 奥 条 目 


ow ina. oond| ED 
列表 字典 的 内 容 


Tablet FPC- 
Tablet PC== 干 板 电脑 = 


| 列表 字 奥 的 内 容 


| | Tablet 
| Tablet 
.Sin 


站 四 |g1E 位 | | 图 Q 


可 


ET 


图 7-12 添加 字典 条 目 
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7.12 开发 ASP 自 定 义 组 件 


ActiveX 组 件 是 一 个 存在 于 Web 服务 器 上 的 文件 ， 该 文件 包含 执行 某 项 或 一 组 任务 的 
代码 。 组 件 可 以 执行 公用 任务 ， 这 样 网 站 开发 者 就 不 必 逐 一 去 创建 执行 这 些 任务 的 代码 。 
例如 ， 使 用 一 个 股票 行情 收报 机 组 件 即 可 以 在 Web 页 上 显示 最 新 的 股票 报价 。 

除了 ASP 自 带 的 几 个 基本 组 件 之 外 , 网 站 的 开发 者 还 可 从 第 三 方 开发 商 购买 一 些 已 制 
作 完 成 的 组 件 ， 直 接 运 用 它们 来 完成 各 种 各 样 的 任务 。 除 此 之 外 ， 还 可 用 任何 支持 组 件 对 
象 模型 (Component Object Model，COMD) 的 编程 语言 (如 Visual C++、Java、Visual Basic) 编 
写 自己 的 组 件 。 组 件 是 可 以 重复 使 用 的 ， 在 Web 服务 器 上 安装 组 件 后 ， 就 可 以 从 ASP 脚 
本 、ISAPI 应 用 程序 、 服 务 器 上 的 其 他 组 件 或 另 一 种 COM 兼容 语言 编写 的 程序 中 调用 该 
组 件 。 

要 使 用 组 件 提 供 的 对 象 ， 首 先 要 创建 对 象 的 实例 并 将 这 个 新 的 实例 分 配 变量 名 。 使 用 
ASP 的 Server.CreateObject0 方 法 可 以 创建 对 象 的 实例 ， 然 后 可 使 用 脚本 语言 的 变量 分 配 指 
令 为 对 象 实例 命名 。 创 建 对 象 实例 时 ， 必 须 提供 实例 的 注册 名 称 PROGID。 如 下 例 将 创建 
一 个 Ad Rotator 广告 条 对 象 : 


<% Set MyAds = Server.CreateObject("MSWC.AdRotator") %> 


注意 : 
必须 使 用 ASP 的 ServerCreateObject( 方 法 创建 对 象 实例 ， 否 则 ASP 无 法 跟踪 脚本 语 
言 中 对 象 的 使 用 。 


使 用 HIML<OBJECT> 标 签 同样 可 以 创建 对 象 实例 ， 但 必须 为 RUNAT 属性 提供 服务 
器 值 ， 同 时 也 要 为 将 在 脚本 语言 中 使 用 的 变量 名 提供 ID 属性 组 。 使 用 注册 名 称 (PROGID) 
或 注册 号 码 (CLSID) 可 以 识别 该 对 象 。 下 例 使 用 注册 名 (PROGID) 创 建 Ad Rotator 对 象 : 


<OBJECTRUNAT=Server ID=MyAd PROGID="MSWC.AdRotator"></OBJECT> 


7.13 习 题 


7.13.1 填空 题 


1. 使 用 组 件 可 快速 在 网 站 上 建立 一 个 广告 系统 ， 它 允许 在 每 次 访问 ASP 
页 面 时 在 页 面 上 显示 新 的 广告 。 
2. 广告 条 放置 到 网 站 后 ,用 户 对 广告 条 进行 单 击 操作 后 , ASP 就 会 打开 文件 。 


3. ASP 服务 器 的 组 件 通过 读 取 计划 文件 来 完成 网 页 内 容 的 显示 ， 通 常 是 
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自动 轮换 显示 一 些 HIML 内 容 。 


4. 在 Content Linker 组 件 的 列表 文件 中 ， 第 一 列 的 URL 和 第 二 列 的 链接 锚 必 须 用 
键 隔 开 。 
5. ASP 服务 器 的 组 件 用 于 检测 客户 端 浏览 器 的 能 力 。 组 件 用 


来 测试 访问 者 对 某 文件 或 某 页 的 访问 权 。 


7.13.2 选择 题 


1. 在 广告 轮 显 组 件 中 ， 假 如 在 广告 信息 文件 中 设置 Border 为 1， 然 后 在 页 面 中 又 设置 
了 Border 属性 值 为 3， 则 显示 在 页 面 中 的 广告 图 片 的 边框 宽度 为 ( )。 
A.0 B. 1 C3 D.4 
2. 在 文件 超 链 接 组 件 中 ， 假 如 使 用 GetNextURL 方法 读 取 到 了 最 后 1 个 文件 的 URL， 
如 果 继 续 执行 该 方法 ， 将 会 读 取 ( 。””) 文 件 的 URL。 
A. 第 1 个 B. 最 后 1 个 C. 停止 不 动 D. 程序 会 出 错 


7.13.3 问答 题 


1. 简 述 广告 轮 显 组 件 的 工作 原理 。 
2. ASP 有 哪儿 种 调用 组 件 的 方法 ? 
3. 如 有 以 下 程序 : 
<% 
Response.Write(" 动 态 网 页 ") 
Response.EndO 
Response.Write(" 设 计 语 言 ") 
%> 
则 程序 的 输出 结果 是 什么 ? 
4. 在 IIS 服务 器 上 ， 默 认 的 Session 对 象 会 话 有 效 时 间 是 多 少 分 钟 ? 在 程序 中 如 何 修 
改 其 有 效 期 ? 
5. Server.HTMLEncode("<h3> 股 票 财经 </h3>") 语 句 的 输出 结果 是 什么 ? 
6. Global.asa 文件 的 作用 是 什么 ? 


7.13.4 ”操作 题 


1. 使 用 Content Linker 组 件 调用 列表 文件 ， 实 现 页 面 的 列表 跳 转 ， 程 序 运行 结果 如 
图 7-13 所 示 。 
2. 创建 一 个 可 对 字典 进行 项 目 查询 的 页 面 ， 程 序 运行 结果 如 图 7-14 所 示 。 
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笑 傲 江湖 


第 二 十 三 境 伏击 


”但 这 明明 是 女子 声音 ， 却 不 是 师 扩 ， 更 不 是 岳 
相 岳 胰 元 ， 话 声 又 任 ， 听 不 清 说 些 甚 迄 - 仿 沪 六 


知 又 如 问 说 


移 hapy11921684.77/XIT2 x 
Sm LM 


十 人 ， 心 中 一 柄 : “不 知 是 适 在 号 我 1 如 果真 是 


查询 字典 内 容 
同一 一 一 


找到 了 ， 荔 的 全 称 是 ,江苏 省 


| 国信 中 器 


了 过 器 已 下 载 | 中 本 吊 地 久 ” 


图 7-13 ” 跳 转 到 指定 章节 


图 7-14 查询 字典 内 容 


3. 使 用 Session 对 象 判断 用 户 输 入 的 用 户 名 和 密码 是 否 正确 。 
4. 使 用 Application 对 象 设计 一 个 网 站 访问 量 计数 器 。 
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教学 目标 

通过 对 本 章 的 学 习 ， 能 够 了 解 FSO 中 各 对 象 的 属性 和 方法 ， 并 熟练 地 使 用 FSO 对 本 
机 的 文本 文件 进行 各 种 基本 操作 。 

e@ FileSystemObject 对 象 的 属性 和 方法 

ee TextStream 对 象 的 属性 和 方法 

@ 创建 一 个 文本 文件 

@ 读 取 文本 文件 

ASP 的 File Access 组 件 提供 了 可 用 来 访问 计算 机 文件 系统 的 方法 和 属性 。File Access 
组 件 使 用 FSO(FileSystemObject) 对 象 模型 来 处 理 服 务 器 端的 文件 、 文 件 夹 和 驱动 器 。 使 用 
FSO 可 以 建立 、 删 除 、 移 动 文件 和 文件 夹 ， 检 查 文件 和 文件 夹 是 否 存 在 ， 以 及 更 改 文件 和 
文件 夹 的 名 字 。 


8.1 FileSystemObject 文件 系统 对 象 


File Access 组 件 提供 可 用 于 在 计算 机 文件 系统 中 检索 和 修改 文件 的 对 象 。 用 户 可 以 使 
用 File Access 组 件 创建 FileSystemObject 对 象 ， 简 称 为 FSO。FSO 提供 用 于 访问 文件 系统 
的 方法 、 属 性 和 集合 。 

FSO 可 以 用 来 对 驱动 器 、 文 件 夹 以 及 文件 等 对 象 进行 相关 的 处 理 操作 。 它 可 以 检测 并 
显示 出 系统 驱动 器 的 信息 分 配 情况 ， 可 以 创建 、 改 变 、 移 动 和 删除 文件 夹 ， 并 能 探测 一 些 
给 定 的 文件 夹 是 否 存在 ， 可 以 提取 出 文件 夹 的 信息 ， 如 名 称 、 被 创建 或 最 后 一 次 修改 的 日 
期 等 。 


注意 : 

FSO 对 象 模式 使 文件 处 理 变 得 很 容易 。 当 只 想 存 取 一 些 更 新 量 较 小 的 数据 时 ， 可 把 它 
们 存储 在 二 进 制 或 文本 文件 中 ， 然 后 用 FSO 来 创建 文件 ， 插 入 和 改变 数据 ， 以 及 输出 ( 读 
取 ) 数 据 。 


数据 存储 在 数据 库 中 ， 如 Access 或 SQL 服务 器 ， 会 给 应 用 程序 增加 很 大 的 开销 。 而 
使 用 FSO 将 数据 存储 在 文本 文件 中 读 取 可 节省 系统 资源 。 


。162 。 ASP 动态 网 站 开发 基础 教程 (第 5 版 ) 


FSO 组 件 中 包含 多 个 对 象 和 集合 ， 其 名 称 和 相关 说 明 如 表 8-1 所 示 。 


表 8-1 FileSystemObject(FSO) 包 含 的 对 象 和 集合 


对 象 /集合 描 述 
主 对 象 。 包 含 用 来 创建 、 删 除 和 获得 有 关 信 息 ， 以 及 通常 用 来 操作 驱动 器 、 文 件 
FileSystemObject ”| 夹 和 文件 的 方法 和 属性 。 和 该 对 象 相 关联 的 许多 方法 ， 与 其 他 FSO 对 象 中 的 方 
法 完全 相似 ， 它 们 是 为 了 方便 才 被 提供 的 
对 象 。 包 含 用 来 收集 信息 的 方法 和 属性 ， 这 些 信 息 是 关于 连接 在 系统 上 的 驱动 器 
的 ， 如 驱动 器 的 共享 名 和 它 有 多 少 可 用 空间 。 注 意 ，Drive 并 非 必须 是 硬盘 ， 也 可 
以 是 CD-ROM 驱动 器 、RAM 磁 柱 等 。 并 非 必 须 把 驱动 器 实物 地 连接 到 系统 上 ， 
它 也 可 以 通过 网 络 在 逻辑 上 被 连接 起 来 
合 。 提 供 驱动 器 的 列表 , 这 些 驱 动 器 实物 地 或 在 逻辑 上 与 系统 相连 接 。Drives 集 
Drives 合 包括 所 有 了 驱动器， 与 类 型 无 关 。 要 可 移动 的 媒体 驱动 器 在 该 集合 中 显现 ， 不 必 
把 媒体 插入 到 驱动 器 中 
对 象 。 包 含 用 来 创建 、 删 除 或 移动 文件 的 方法 和 属性 ， 也 用 来 向 系统 询问 文件 名 、 
路 径 和 多 种 其 他 属性 
Files 集合 。 提 供 包含 在 文件 夹 内 的 所 有 文件 的 列表 
二 二 对 象 。 包 含 用 来 创建 、 删 除 或 移动 文件 夹 的 方法 和 属性 ， 也 用 来 向 系统 询问 文件 
夹 名 、 路 径 和 多 种 其 他 属性 
Folders 集合 。 提 供 在 Folder 内 的 所 有 文件 夹 的 列表 
TextStream 对 象 。 用 来 读 写 文本 文件 
注意 : 


与 FileSystemObject 主 对 象 相关 联 的 很 多 方法 重复 了 另外 4 个 对 象 中 的 方法 ， 因 此 既 
可 以 通过 FileSystemObject 主 对 象 来 对 驱动 器 、 文 件 夹 和 文件 进行 大 多 数 操作 ， 也 可 以 通 
过 对 应 的 驱动 器 、 文 件 夹 或 文件 对 象 对 这 些 组 件 进 行 操作 。 


FSO 模型 通过 两 种 方法 实现 对 同一 对 象 的 操作 ， 其 操作 效果 是 相同 的 ， 提 供 这 种 匈 余 
功能 的 目的 是 为 了 实现 最 大 的 编程 灵活 性 。 
使 用 FSO 编程 ， 首 先 要 用 Server.CreatObject0 方 法 创建 FileSystemObject 对 象 , 如 下 
例 所 示 : 
<% 
Dim MyFileObject 
Set MyFileObject =Server.Create Object("Scripting.FileSystemObject") 
%> 


创建 FileSystemObject 对 象 后 ， 就 可 以 使 用 它 创建 、 打 开 或 读 写 文件 ， 以 及 对 文件 和 


文件 夹 进行 新 建 、 复 制 、 移 动 、 删 除 等 操作 。FileSystemObject 对 象 的 方法 及 相关 说 明 ， 如 
表 8-2 所 示 。 
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表 8-2 FileSystemObject 对 象 的 方法 


方 ” 法 说 明 
CreateTextFile0) 创建 一 个 文本 文件 
OpenTextFile0) 打开 一 个 已 有 的 文本 文件 
GetFile 0 返回 与 指定 路 径 中 某 文件 相应 的 File 对 象 


GetExtensionName0 获得 文件 扩展 名 


CopyFil 复制 一 个 文件 
MoveFile0 移动 文件 ， 将 文件 从 一 个 路 径 移 到 另 一 个 路 径 
删除 文件 ， 其 第 一 个 参数 是 要 删除 的 文件 ， 第 二 个 参数 是 说 明 是 否 强行 删 
DeleteFile0 本 
除 ( 如 果 文 件 是 只 读 或 隐 含 等 ) 
FileExistsO) 如 果 指 定 的 文件 存在 ， 返 回 True; 否则 返回 False 
GetFolder0 返回 与 指定 的 路 径 中 某 文件 夹 相应 的 Folder 对 象 
CreateFolder0) 创建 一 个 目录 


复制 整个 目录 ， 会 复制 这 个 目录 下 的 所 有 文件 
移动 目录 ， 会 移动 目录 下 包含 的 全 部 文件 


删除 目录 ， 会 删除 目录 下 所 有 文件 ， 并 且 删 除 的 文件 不 会 进入 回收 站 


FolderExists0O) 


FSO 功能 最 强 


如 果 指 定 的 文件 夹 存在 ， 返 回 Trme; 否则 返回 False 


8.2 读 写 文件 


大 的 部 分 就 是 对 文件 的 操作 ， 可 以 用 来 记 数 、 内 容 管理 、 搜 索 ， 还 可 以 


用 来 生成 动态 HTML 页 面 等 。 
新 建文 本 文件 需要 使 用 FileSystemObject 对 象 和 该 对 象 的 CreateTextFile0 方 法 。 
TextStream 对 象 提供 对 存储 在 磁盘 上 文件 的 访问 ， 能 够 读 出 或 写 入 顺序 文本 文件 。 


8.2.1 TextStream 对 象 简介 


TextStream 对 象 必须 通过 FileSystemObject 对 象 进行 实例 化 ， 所 以 可 以 把 TextStream 
对 象 当 作 是 FileSystemObject 对 象 的 子 对 象 。TextStream 对 象 的 方法 及 其 相关 说 明 ， 如 


表 8-3 所 示 。 


表 8-3 TextStream 对 象 的 方法 


用 来 关闭 一 个 已 打 姑 


fF 的 数据 流 文件 和 其 对 应 的 文本 文件 


从 光标 的 当前 位 置 开 始 ， 从 打开 的 文件 文本 中 读 取 一 定 的 字符 数目 
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( 续 表 ) 
丰 :法 说 明 
ReadAllO 用 来 读 取 一 个 已 打开 的 数据 流 文件 内 的 所 有 数据 
ReadLine() 用 来 读 取 一 个 已 打开 的 数据 流 文件 内 的 一 行 数据 
Skip0 用 来 跳 过 已 打开 的 数据 流 文件 内 的 字符 数目 
SkipLine 用 来 跳 过 已 打开 的 数据 流 文件 内 的 一 整 行 数据 


用 来 写 入 数据 至 一 个 已 打开 的 数据 流 文件 


WriteLine0 


用 来 写 入 一 整 行 数据 至 一 个 已 打开 的 数据 流 文件 


WriteBlankLinesO 


属 性 
AtEndOfLine 
AtEndOfStream 
Column 


Line 


用 来 指定 欲 写 入 的 新 行 数目 
TextStream 对 象 的 属性 及 其 相关 说 明 ， 如 表 8-4 所 示 。 


表 8-4 TextStream 对 象 的 属性 
说 明 
当 光 标 位 于 当前 行 的 末尾 时 ， 其 值 为 Tue， 否 则 为 False 
当 光 标 位 于 流 的 末尾 时 ， 其 值 为 True， 否 则 为 False 
计算 从 行 首 到 当前 光标 位 置 的 字符 数 
计算 光标 所 在 行 在 整个 文件 中 的 行 号 


8.2.2 创建 一 个 文本 文件 


创建 或 打开 一 个 文本 文件 并 返回 TextStram 对 象 ， 可 使 用 CreateTextFile() 方 法 或 


OpenTextFile() 方 法 。 


1. CreateTextFile() 方 法 
可 使 用 CreateTextFile() 方 法 创建 新 的 文本 文件 ， 或 覆盖 一 个 已 存在 的 文件 。 返 回 的 
TextStream 对 象 可 用 来 读 写 文件 ， 其 语法 结构 如 下 : 


Object.CreateTextFile(filename[,overwrite[,unicode]]) 


以 上 语法 结构 


bh 各 部 分 的 含义 如 下 : 


e@ Object 应 为 FileSystemObject 或 Folder 对 象 的 名 称 。 
e filename 是 字符 串 ， 用 于 指明 待 创建 的 文件 。 
e ”overwrite 指明 是 否 可 履 盖 已 有 的 文件 ， 若 设 为 True， 则 可 以 覆盖 ; 若 设 为 False( 默 


认 )， 则 不 能 覆盖 。 


e unicode 指明 是 以 unicode 格式 还 是 以 ASCII 格式 创建 文件 ， 若 设 为 True， 则 以 
unicode 格式 创建 ， 若 设 为 False( 默 认 )， 则 以 ASCII 格式 创建 。 
例如 ， 使 用 CreateTextFile0 方 法 在 真实 路 径 指定 的 位 置 创建 一 个 空 的 文本 文件 的 程序 


代码 如 下 : 
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<% 
Dim fso,fil 
Set fso=Server.CreateObject("Scripting.FileSystemObject") 
Set fil=fso.CreateTextFile("D:\My webs\test] .txt",True) 
%> 


注意 : 

通过 FSO 打开 了 驱动器、 文件 夹 或 文件 ， 只 能 使 用 指定 的 绝对 物理 路 径 地 址 。 而 文本 文 
件 创建 的 位 置 常 需要 使 用 虚拟 路 径 来 指定 ， 因 为 这 样 可 便于 将 应 用 程序 转移 到 不 同 的 计算 
机 上 运行 ， 所 以 对 虚拟 路 径 常 使 用 ServerMapPath() 方 法 将 其 转化 为 真实 路 径 。 


2. OpenTextFile() 方 法 
可 使 用 OpenTextFile() 方 法 打开 一 个 已 有 的 文本 文件 ， 也 可 创建 一 个 文本 文件 。 它 返 
回 一 个 TextStream 对 象 ， 可 用 这 个 对 象 对 文件 读 或 追加 数据 。 
Object.OpenTextFile(filename[,iomode[,create[,format]]]) 
以 上 语法 结构 中 各 部 分 的 含义 如 下 : 
e@ Object 应 为 FileSystemObject 对 象 的 名 称 。 
e filename 是 字符 串 ， 用 于 指明 待 创建 的 文件 。 
e iomode 用 于 指定 输入 /输出 模式 ， 取 值 为 1( 以 只 读 模式 打开 ， 不 能 对 文件 进行 写 操 
作 )、2( 以 只 写 方式 打开 ， 不 能 对 文件 进行 读 操 作 ) 或 8( 以 追加 方式 打开 ， 可 以 在 文 
件 末尾 进行 写 操作 )。 
e create 指出 文件 不 存在 时 是 否 创建 ， 默 认 是 False， 若 要 创建 ， 可 设 为 True。 
e format 指出 以 何 种 格式 打开 文件 , 取 值 是 - 2( 以 系统 默认 格式 打开 )、- 1( 以 unicode 
格式 打开 ) 或 0( 以 ASCII 格式 打开 )。 
例如 ,使 用 OpenTextFile0 方 法 在 虚拟 路 径 指 定 的 位 置 创 建 一 个 空 的 文本 文件 的 程序 代 
码 如 下 : 


<% 

Dim fso,ts 

Const ForWriting=2 

Set fso=CreateObject("Scripting.FileSystemObject") 

Set fs=fso.OpenTextFile(Server.MapPath("test2.txt"),ForWriting, True) 
%> 


8.2.3 ”向 文本 文件 中 添加 数据 


文本 文件 一 经 创建 ， 就 可 以 分 3 步 向 其 中 加 入 数据 : 打开 文件 以 备 写 入 数据 ， 写 入 数 
据 ， 关 闭 文 件 。 打 开 文 件 的 方法 有 两 种 : 第 一 种 是 用 File 对 象 的 OpenAsTextStream() 方 法 ， 
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第 二 种 是 用 FileSystemObject 对 象 的 OpenTextFile() 方 法 。 


打开 文件 后 ， 就 可 以 上 


TextStream 对 象 的 Write0 或 WriteLine() 方 法 写 入 数据 , 两 者 间 


的 唯一 差别 是 WriteLine( 方 法 会 在 字符 串 的 末尾 添加 换行 符 。 如 果 想 在 文本 文件 中 添加 一 


个 空 行 ， 可 使 用 WriteBlankLines() 方 法 。 


注意 : 


对 文本 文件 的 操作 进行 完成 后 ， 要 使 用 TextStream 对 象 的 Close() 方 法 关闭 文件 。 


【 例 8-1】 创 建 一 个 文本 文件 ， 并 写 入 文本 和 


全 


ATs 


创建 后 的 文本 如 图 8-1 所 示 。 


(1) 创建 一 个 名 称 为 textfile.asp 的 文件 ， 代 码 如 下 所 示 : 


<% 
Dim fso,f 


Set fso=CreateObject("Scripting.FileSystemObject") 
Set fil=fso.CreateTextFile(Server.MapPath("test3.txt"), True) 


全 .Write("*** 第 一 句 文本 ") 


全 .WriteLine("*** 第 二 句 带 换行 符 的 文本 ") 
全 .WriteLine("*** 第 三 句 带 换行 符 的 文本 ") 


fil.WriteBlankLines(2) 
全.Write("*** 第 四 句 文本 ") 
fil.Close 

%> 


' 写 入 两 个 空白 行 


闫 闲 文 件 


(2) 在 服务 器 主 目 录 中 运行 textfile.asp 文件 后 将 创建 test3.txt 文件 ,打开 该 文本 文件 后 


如 图 8-2 所 示 。 
T= ®lm 
GO rm, FR, nee RC E2772 
4 MAE EV IRT 和 人) 
把- 司 Nf" Fm WA 齐 ” 加 全 
= am 
LE 古人 小 小修 
所 二 5 于 eup.91 terasp test ep tea 
全 A300 Drive | a 5 
mn wa 
ee ‘OD op 
EN na | mime | icp 
Bn ma 
DT < < < < 
mr =- test5.asp test6asp test7.asp testB.asp 
Wert3 on Waa 2015/8/7 1012 二 TO 
六 科大 小 0 可 


是 tesabt-iog 本 [=|5 me) 


EE 


| 文人 (篇 绢 (6 格式 (DO) 坦 看 (V) 帮助 (H) 


je 第 一 名 2 带 换行 符 的 文本 


###+ 累 三 句 审 


< 第 | 


行 符 的 文本 


句 文本 


图 8-1 创建 的 test3.txt 文件 


8.2.4 读 取 文 本 文件 中 的 内 容 


图 8-2 test3.txt 文件 内 容 


要 从 文本 文件 中 读 取 数据 ， 可 以 使 用 TextStream 对 象 的 Read()、ReadLine() 或 者 
ReadAl1(0 方 法 .Read() 方 法 从 文本 文件 中 读 取 指定 数量 的 字符 ; ReadLine() 方 法 读 取 一 整 行 ， 
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但 不 包括 换行 符 ，ReadAll0 方 法 读 取 一 个 文本 文件 的 所 有 内 容 。 

在 使 用 Read0 或 ReadLine0 方 法 时 ， 还 可 以 用 Skip0 方 法 跳 过 几 个 字符 ， 或 者 
SkipLine() 方 法 跳 过 几 行 。 

【 例 8-2】 分 别 使 用 Read0、ReadLine0 或 者 ReadAll0 方 法 读 取 【 例 8-1】 所 创建 的 文本 
文件 test3.txt 中 的 内 容 。 

(1) 创建 一 个 名 称 为 Readfile asp 的 文件 ， 如 图 8-3 所 示 ， 代 码 如 下 所 示 : 


二 


<% 

Dim fso,fl,ts,s1,s2 
Const ForReading=1 
Set fso=CreateObject("Scripting FileSystemObject") 
Set ts-fso.OpenTextFile(Server. MapPath("test3.txt"), ForReading) 
sl=ts.Read(3) 
Response.Write "文件 的 前 三 个 字符 内 容 是 : "&sl&"" 
Response. Write "<Br><Br>" 
ts.Skip(5) ' 从 当前 位 置 往 后 跳 过 5 个 字符 
s2=ts.ReadLine 
Response.Write "第 一 行 剩 下 的 内 容 是 : "&s2&""&"<Br><Br>" 
Response.Write "文本 剩 下 的 内 容 是 : "&ts.ReadAll&""&"<Br>" 
ts.Close 

%> 


(2) 在 服务 器 主 目录 中 运行 Readfile.asp 文件 后 ， 效 果 如 图 8-4 所 示 。 
Trenesp DRE no 


ED EGREEOREORITI 

Sn £0, £1 ts ss 

Const ForReadine=1 E> @ ntpV/192168177/Readl x | + 

Set fs0=CreatcObject ("Deriptins, FileSyst erDbje 

Bet toate Opentd sti ode ven ont etd ctxt ), Forkeadine) GHW Go0g Qjss* 

sl=ts, Reed(3) 人 | - 

eens D0 er en 文件 的 前 三 个 字符 内 容 是 ， + 

te, Skip 字 特 

to oadLin 出 第 一 行 利 下 的 内 容 是 ，' + 第 二 句 带 执行 符 的 文本 

IResponse. Write 复 坟 和 ee:. “2h” “8"<Br>CBr>” Ls 

esponee. rite “Bte .Readhl18” “xpry 文本 得 下 的 内 容 是 ，, + 第 二 句 带 换行 符 的 文本 + 第 四 句 文本 ， 

I%> 

| 

vw 了 加 路 心 下 载 | 区 证 册 己 己 > | 
图 8-3 程序 代码 图 8-4 在 浏览 器 中 显示 test3.txt 文件 内 容 


83 管理 文件 


File 对 象 提供 了 对 文件 属性 的 访问 ， 通 过 它 的 方法 能 够 对 文件 进行 操作 。File 对 象 允 
许 复制 、 删 除 以 及 移动 文件 ， 还 可 以 利用 它 检测 一 个 文件 是 否 存在 和 查看 一 个 文件 具有 什 
么 属性 。 下 面 将 介绍 利用 FSO 组 件 管理 文件 的 方法 。 
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8.3.1 File 对 象 简介 


File 对 象 的 属性 及 其 相关 说 明 ， 如 表 8-5 所 示 。 


表 8-5 File 对 象 的 属性 及 说 明 


属 性 说 了 明 

设置 或 返回 文件 的 系统 属性 。 可 以 是 下 列 值 中 的 一 个 或 其 组 合 : 0( 表 示 普 通 

i 文件 )、1( 表 示 只 读 文件 )、2( 表 示 隐 藏 文件 )、4( 表 示 系 统 文件 )、16( 表 示 文 件 
夹 或 目录 )、32( 表 示 上 次 备份 后 已 更 改 的 文件 )、1024( 表 示 链 接 或 快捷 方式 ) 
和 2048( 表 示 压 缩 文件 ) 

DateCreated 返回 该 文件 的 创建 日 期 和 时 间 

DateLastAccessed 返回 最 后 一 次 访问 该 文件 的 日 期 和 时 间 

DateLastModified 返回 最 后 一 次 修改 该 文件 的 日 期 和 时 间 

Drive 返回 该 文件 所 在 的 驱动 器 的 Drive 对 象 

Name 设 定 或 返回 文件 的 名 字 

ParentFolder 返回 该 文件 的 父 文件 夹 的 Folder 对 象 

Path 返回 文件 的 绝对 路 径 ， 可 使 用 长 文件 名 

ShortName 返回 DOS 风格 的 8.3 形式 的 文件 名 

ShortPath 返回 DOS 风格 的 8.3 形式 的 文件 绝对 路 径 

Size 返回 该 文件 的 大 小 ( 字 节 ) 

Type 如 果 可 能 ， 返 回 一 个 文件 类 型 的 说 明 字符 串 

注意 : 


每 个 Folder 对 象 提供 了 一 个 Files 集合 ， 和 包含 文 件 夹 中 文件 对 应 的 File 对 象 。 还 可 以 
直接 使 用 GetFile() 方 法 从 FileSystemObject 对 象 中 得 到 一 个 File 对 象 引 用 。 

File 对 象 的 方法 允许 复制 、 删 除 以 及 移动 文件 , 它 有 一 个 使 用 文本 流 打开 文件 的 方法 。 
File 对 象 的 方法 及 说 明 ， 如 表 8-6 所 示 。 


表 8-6 File 对 象 的 方法 及 说 明 


方 ” 法 说 明 
将 这 个 文件 复制 到 destination 指定 的 文件 夹 。 如 果 destination 的 末尾 是 路 径 分 隔 
Copy(destination, 符 Q)， 那 么 认为 destination 是 放置 复制 文件 的 文件 夹 ， 否则， 认为 destination 是 
overwrite) 要 创建 的 新 文件 的 路 径 和 名 字 。 如 果 目 标 文件 夹 已 经 存在 且 overwrite 参数 设置 


为 False， 将 产生 错误 ， 默 认 的 overwrite 参数 是 True 
删除 这 个 文件 。 如 果 可 选择 的 force 参数 设置 为 True,， 文件 即使 具有 只 读 属 性 也 
会 被 删除 。 默 认 的 force 是 False 


Delete(force) 
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方 法 说 明 
Move0 | 将 文件 移动 到 destination 指定 的 文件 夹 
CreateTextFileO) | 用 指定 的 文件 名 创建 一 个 新 的 文本 文件 ， 并 且 返 回 一 个 相应 的 TextStream 对 象 


OpenAsTextStream ”| 打开 指定 文件 并 且 返 回 一 个 TextStream 对 象 ， 用 于 文件 的 读 、 


写 或 追加 。Jomode 


(Jomode,format) 参数 指定 了 要 求 的 访问 类 型 ，format 参数 说 明了 读 、 写 文件 的 数据 格式 


给 定 一 个 File 对 象 后 ， 可 以 使 用 ParentFolder 属性 得 到 包含 该 文件 的 Folder 对 象 的 引 


用 ， 用 来 在 文件 系统 中 导航 ; 甚至 可 以 月 


到 各 种 Folder 对 象 以 及 所 包含 的 File 对 象 。 


注意 : 
另外 ， 给 定 一 个 Folder 对 象 以 及 对 应 的 Files 集合 后 ， 可 以 通过 遍历 该 集合 检查 这 一 
文件 夹 中 的 每 个 文件 ， 还 可 以 使 用 File 对 象 的 各 种 方法 以 一 定 方式 处 理 该 文件 ， 如 复制 、 


移动 或 删除 。 
8.3.2 移动、 复制 及 删除 文件 


FSO 对 象 模式 有 两 种 方法 来 移动 、 复 制 和 删除 文件 。 
e 移动 文件 : 移动 一 个 文件 , 可 用 File 对 象 的 Move() 方 法 或 FileSystemObject 对 象 的 


MoveFile0 方 法 。 

e 复制 文件 : 复制 一 个 文件 ,可 用 File 对 象 的 Copy( 方 法 或 FileSystemObject 对 象 的 
CopyFile() 方 法 。 

e 删除 文件 : 删除 一 个 文件 ， 可 用 File 对 象 的 Delete() 方 法 或 FileSystemObject 对 象 
的 DeleteFile() 方 法 。 

以 下 面 的 代码 为 例 ， 可 以 创建 一 个 文本 文件 (如 test4.kb， 并 对 它 进行 复制 、 移 动 和 删 

除 操作 。 

<% 

Dim fso,fl,f2,s 


%> 


Set fso=Server.CreateObject("Scripting.FileSystemObject") 
Set f1=fs0.CreateTextFile(Server.MapPath("test4.txt"),True) 


所 .Write(" 这 是 一 个 测试 文件 ! ") 号 一行 

fl.Close 关闭 文件 

Set f2=fs0.GetFile(Server.MapPath("test4.txt")) 
f2.Move(Server.MapPath("test1\test4.txt")) "把 文件 移动 到 testl 目录 
f2.Copy(Server.MapPath("test2\test4 .txt")) "把 文件 复制 到 test2 目录 
set f3=fs0.GetFile(Server.MapPath("test2\test4.txt")) 

f3.Delete 吊 除 文件 


日 Drive 属性 获得 相应 的 Drive 对 象 的 引用 ， 并 得 
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要 运行 以 上 代码 ， 需 要 先 在 驱动 器 根 目 录 位 置 创建 estl 和 \test2 目录 。 


检测 文件 和 文件 夹 是 否 存在 


使 用 FSO 对 象 的 FileExists0 和 FolderExists(0 方 法 可 以 检测 文件 和 文件 夹 是 否 存在 , 若 
存在 ， 则 返回 True， 和 否则 返回 False。 
例如 以 下 代码 ， 检 测 一 个 指定 的 文件 是 否 存 在 ， 并 在 网 页 中 返回 相应 的 结果 。 


<% 


%> 


8.3.4 


Dim fso 
Set fso=Server.CreateObject("Scripting.FileSystemObject") 
If fso.FileExists(Server.MapPath("test5.txt")) Then 
Response.Write Server.MapPath("test5.txt")&" 存 在 " 
Else 
Response.Write Server.MapPath("test5.txt")&" 不 存在 " 
EndIf 


检测 文件 的 属性 


使 用 File 对 象 和 Folder 对 象 不 仅 可 以 实现 文件 和 文件 夹 的 各 种 操作 ,而 且 能 得 到 文件 
和 文件 夹 的 各 种 属性 。 
例如 以 下 代码 可 创建 一 个 文件 , 并 显示 这 个 文件 的 各 属性 值 , 其 程序 运行 结果 如 图 8-5 


所 示 。 


<Center><H2> 查 看 文件 的 属性 </H2></Center> 
<Hr> 


<% 


whichfile=Server.MapPath("testS.txt") 

Set fso = CreateObject("Scripting.FileSystemObject") 
Set 有 = fso0.CreateTextFile(whichfile,true) 

全 .Write ("这 是 一 个 测试 文件 .") 

人 .Close 

Set 亿 = fso0.GetFile(whichfile) 

s=" 文 件 名 称 : " & 人 2.name & "<br>" 

s=s 必 "文件 短路 径 名 :" & 人 2.shortPath & "<br>" 
s 二 s& "文件 物理 地 址 : " & 人 2.Path & "<br>" 
s=s& "文件 属性 :" & f2.Attributes & "<br>" 

s=s 必 "文件 大 小 : " & 介 .size & "<br>" 

s 二 s 及 "文件 类 型 : " & 人 .type &"<br>" 

s 二 s& "文件 创建 时 间 : " & 人 .DateCreated & "<br>" 
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s 二 s&" 最 近 访问 时 间 : " & 人 2 DateLastAccessed & "<br>" 
s=s 伙 "最 近 修改 时 间 : " & f2.DateLastModified 
response.write(s) 
%> 
可 Readflelasp - 记 要 本 ee 面 hapy/l92168477 x | 二 
文 伯 昌 ， 闹 胆 日 ， 格 z(O) 得 这， 如 到 (H) 的 | 全 a "|g Goog & 


《Center><H2> 查 看 文件 的 属性 </H2>《/Center> 
<Hr> 


derer. JapPath(”test5. txt”}) 查看 文件 的 属 性 


Set fso = CreateObject("Scripting. FileSystenDbject”) 
Set fl = fso, CreateTexrtFile (whichfile, true) 

纪 .Write ("这 是 一 个 测试 文件 .”) 

fl. Close 文件 名 称 ，test5. txt 


Set f2 = fso.Getpile(whichfile) 


i 文件 短路 径 名 ，F: NmysiteNtest5. txt 
人 文件 名 称 ，″& f2, name 有 “Kbry 上 从 my 

= 5 3 短路 外 各， f2. shortpath & “Cbr>” i 文件 物理 地 址 , F:\mysite\test5. txt 
sk 之 和 eth bo ee 文件 属性 ，32 

村 性 : Att: > 

3 58 A 8 文件 大 小 ，17 

= s& A Es tt a 文件 类 型 ， 文 本 文档 
ao 文件 创建 时 间 ，2015/8/7 14:41:05 

= s & “最 近 修改 时 间 ，”& 到 ,DateLastllodified 最 近 访 问 时 间 ，2015/8/7 14:41:05 
Seponse mite(s) 最 近 修改 时 间 ，2015/8/7 14:41:05 


可 


ini 


加 二 车  F 柜 |E 全 号 加] 忆 5 


图 8-5 向 文本 文件 中 添加 数据 
【 例 8-3】 用 文本 文件 编写 一 个 站 点 计数 器 。 
(1) 将 0~9 的 10 张 记 数 图 片 依次 命名 为 0.gif、2.gif、…9.gif， 如 图 8-6 所 示 。 


(2) 在 服务 器 根 目 录 下 新 建 一 个 文件 天 ， 并 命名 为 num， 然 后 将 图 片 文 件 放 入 其 中 。 


(3) 创建 一 个 名 称 为 jishuqiasp 的 文件 ， 代 码 如 下 所 示 : 


<Title> 计 数 器 示例 </Title> 
<Center><H2> 计 数 器 示例 </H2></Center> 
<Hr> 
<% 
dim fso,f.i,counts,length 
Const ForReading = 1 
Const ForWriting = 2 
Set fso = Server.CreateObject("Scripting. FileSystemObject") 
if not fso.FileExists(Server.MapPath("count.log")) then 
Setf= fso0.CreateTextFile(Server.MapPath("count.log")) 
f.WriteLine "0" 
fClose 
endif 
Set f= fso.OpenTextFile(Server.MapPath("count.log"), ForReading) 
rd=fReadLine 
counts = CLng(rd) 
人 Close 
' 用 户 首次 访问 时 Session("Counts") 为 室 ， 应 使 计数 器 加 1 
if Session("Counts") = "" then 
counts= counts+ 1 
Session("Counts") = counts 
Set f= fso.CreateTextFile(Server.MapPath("count.log"), True) 
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f WriteLine(counts) 
fClose 
endif 


length = len(counts) 
fori= 1 to 8-length 
Response.Write "<IMG SRC=num\0.gf></IMG>" 


next 


fori= 1 to length 
Response.Write "<IMG SRC=" & "num\" & mid(counts,,1) & ".gif></IMG>" 


next 
%> 


(4) 运行 jishuqi.asp 文件 ， 结 果 如 图 8-7 所 示 。 


| 
56789 00000001 


CME 


图 8-6 数字 图 片 图 8-7 计数 器 效果 


8.4 获取 驱动 器 信息 


通过 Drives 对 象 提供 的 属性 , 可 以 获得 系统 上 各 个 驱动 器 有 关 的 信息 , 这 些 驱 动 器 可 以 
是 物理 的 或 通过 网 络 逻 辑 连接 到 系统 上 的 。Drives 对 象 的 属性 及 其 相关 说 明 , 如 表 8-7 所 示 。 


表 8-7 Drive 对 象 的 属性 及 说 明 


属 性 说 了 明 
AvailableSpace 返回 驱动 器 上 对 于 该 用 户 可 用 的 空间 大 小 
DriveLetter 返回 驱动 器 的 字母 
DriveType 返回 驱动 器 的 类 型 。 如 可 移动 的 、 固 定 的 、 网 络 、CD-ROM 或 RAM 和 概 
FileSystem 返回 驱动 器 文件 系统 的 类 型 。 返 回 值 包括 FAT 和 NTFS 等 
FreeSpace 返回 驱动 器 上 可 用 剩余 空间 的 总 量 
IsRead 返回 一 个 布尔 值 表明 驱动 器 是 否 已 准备 好 
Path 返回 一 个 由 驱动 器 字母 和 冒号 组 成 的 驱动 器 路 径 ， 如 C: 
RootFolder 返回 代表 驱动 器 根 目录 文件 夹 的 Folder 对 象 
SerialNumber 返回 一 个 用 于 识别 磁盘 卷 的 十 进 制 的 序列 号 
ShareName 如 果 是 一 个 网 络 驱动 器 ， 返 回 该 驱动 器 的 网 络 共享 名 
TotalSize 返回 驱动 器 的 总 容量 (以 字 节 为 单位 ) 
VolumeName 设 定 或 返回 本 地 驱动 器 卷 名 
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以 上 属性 所 代表 的 意义 ， 可 以 通过 下 面 的 程序 查看 服务 器 上 一 个 驱动 器 的 有 关 属 性 
信息 来 进一步 了 解 。 


<% 


%> 


dim ObjfileSys 
dim MyDrive 


set ObjFileSys=Server.CreateObject("Scripting.FileSystemObject") 


set MyDrive=ObjFileSys.GetDrive("d") 


Response.write MyDrive.AvailableSpace&"<br>"” 输出 该 驱动 器 上 的 可 用 控件 
Response .write MyDrive DriveLetter&"<br>" 输出 该 驱动 器 的 名 称 
Response.write MyDrive DriveType&"<br>" 输出 该 驱动 器 的 类 型 
Response.write MyDrive FileSystem&c"<br>" 输出 文件 系统 的 文件 结构 
Response.write MyDrive.FreeSpace&"<br>" 输出 驱动 器 上 的 剩余 空间 
Response .write MyDrive.Path&"<br>" "输出 驱动 器 的 路 径 信息 
Response.write MyDrive RootFolder&"<br>" "返回 一 个 Folder 并 指向 根 目 录 
Response.write MyDrive.SerialNumber&"<br>" 输出 驱动 器 的 序列 号 
Response.write MyDrive.ShareName&"<br>" ' 返 回 网 络 驱 动 器 共享 名 
Response.write MyDrive. TotalSize&"<br>" 输出 驱动 器 上 的 空间 大 小 
Response.write MyDrive. VolumeName&"<br>" 输出 驱动 器 的 卷 标 


以 上 程序 执行 后 的 结果 如 图 8-8 所 示 。 
【 例 8-4】 使 用 Drives 对 象 显示 系统 上 所 有 驱动 器 的 信息 。 
(1) 创建 一 个 名 称 为 Drives.asp 的 文件 ， 代 码 如 下 所 示 : 


<title> 检 测 驱动 器 </Title> 
<Center><H2> 您 的 计算 机 上 各 驱动 器 相关 信息 </H2> 


<Hr> 


<% 


Function tran(Driver) 
Select Case Driver 


Case 0: tran=" 设 备 无 法 识别 " 
Case 1: tran=" 软 得 驱动 器 " 
Case 2: tran=" 硬 向 驱动 器 " 
Case 3: tran=" 网 络 硬盘 驱动 器 " 
Case 4: tran=" 光 盘 驱 动 器 " 
Case 5: tran="RAM 虚拟 磁 栓 " 


End Select 
End Function 
set fso=Server.CreateObject("Scripting. FileSystemObject") 


%> 


<table border=] width="100%"> 
<tr> 


<td> 盘 符 </td> 
<td> 类 型 </td> 
<td> 卷 标 </td> 
<td> 总 计 大 小 <td> 
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<td> 可 用 空间 </td> 
<td> 文 件 系统 </td> 
<td> 序 列 号 </td> 
<td> 是 否 可 用 </td> 
<td> 路 径 </td> 
</tr> 
<% 
"如果 系统 的 某 个 驱动 器 里 没有 磁盘 ， 比 如 软驱 中 无 软盘 或 CD-ROM 驱动 器 中 没有 光盘 ， 将 得 
到 一 个 错误 提示 : “驱动 器 不 存在 。” 使 用 错误 处 理 语句 可 强行 将 程序 跳 转 去 检查 下 一 驱动 器 
On error resume next 
For each drv in fso.Drives 
Response. Write "<tr>" 
Response. Write "<td>" & drv.DriveLetter & "</td>" 
Response.write "<td>" & tran(drv.DriveType) & "</td>" 
Response.write "<td>" & drv.VolumeName & "</td>" 
Response.write "<td>" & FormatNumber(drv.TotalSize / 1024, 0)& "</td>" 
Response.write "<td>" & FormatNumber(drv.Availablespace / 1024, 0) & "</td>" 
Response.write "<td>" & drv.FileSystem & "</td>" 
Response.write "<td>" & drv.SerialNumber & "</td>" 
Response.write "<td>" & drv.IsReady & "</td>" 
Response.write "<td>" & drv.Path & "</td>" 
Response. Write "</tr>" 
Next 
set fs=nothing 
%> 
</table></Center> 


(2) 运行 Drives.asp 文件 后 ， 结 果 如 图 8-9 所 示 。 


| 而 http//192.168.1.77/1.asp x | + 
篇 © 窗 对 | 日 vj 目 Q 
19328401408 
D 6 5 BO a 加 机 
LE a 
19328401408 日 您 的 计算 机 上 各 驱动 器 相关 信息 
D: 
D:\ EE 
610069759 E | 
53694595072 用 | 
mF| 因 全 局 ] 
图 8-8 输出 驱动 器 上 的 相关 属性 图 8-9 向 文本 文件 中 添加 数据 


8.$ 管理 文件 夹 


通过 Folder 对 象 提供 的 属性 和 方法 ， 可 对 文件 夹 进行 各 种 操作 ， 其 中 包括 提取 文件 夹 
信息 、 创 建文 件 夹 、 删 除 文件 夹 、 复 制 文件 夹 、 移 动 文件 夹 等 。 


第 8 章 ASP 的 文件 管理 *。175。 


Folder 对 象 提供 一 组 属性 ， 可 用 这 些 属性 得 到 关于 当前 文件 夹 的 更 多 信息 ， 也 可 以 改 
变 该 文件 夹 的 名 称 。Folder 对 象 的 属性 及 其 相关 说 明 ， 如 表 8-8 所 示 。 


表 8-8 ”Folder 对 象 的 属性 及 说 明 


属 性 说 了 明 

返回 文件 夹 的 属性 。 可 以 是 下 列 值 中 的 一 个 或 其 组 合 ， 正 常 为 0， 只 读 为 1， 

Attributes 隐藏 为 2， 系 统 为 4， 卷 为 8， 文 件 来 为 16， 存 档 为 32， 别 名 为 64， 压 缩 为 
128。 例 如 ， 一 个 隐藏 的 只 读 文件 ，Attributes 的 值 为 2 

DateCreated 返回 该 文件 夹 的 创建 日 期 和 时 间 

DateLastAccessed 返回 最 后 一 次 访问 该 文件 夹 的 日 期 和 时 间 

DateLastModified 返回 最 后 一 次 修改 该 文件 夹 的 日 期 和 时 间 

Drive 返回 该 文件 夹 所 在 的 驱动 器 字母 

Files 返回 Folder 对 象 包含 的 Files 集合 ， 表 示 该 文件 夹 内 所 有 的 文件 

IsRootFolder 返回 一 个 布尔 值 说 明 该 文件 夹 是 否 是 当前 驱动 器 的 根 文件 夹 

Name 设 定 或 返回 文件 夹 的 名 字 

ParentFolder 返回 该 文件 夹 的 父 文件 夹 对 应 的 Folder 对 象 

Path 返回 文件 夹 的 绝对 路 径 ， 使 用 相应 的 长 文件 名 

ShortName 返回 DOS 风格 的 8.3 形式 的 文件 夹 名 

ShortPath 返回 DOS 风格 的 8.3 形式 的 文件 夹 的 绝对 路 径 

Size 返回 包含 在 该 文件 夹 中 的 所 有 文件 和 子 文件 夹 的 大 小 

i 返回 该 文件 夹 内 包含 的 所 有 子 文件 夹 对 应 的 Folders 集合 ， 包 括 隐藏 文件 夹 和 
系统 文件 夹 


以 下 程序 显示 了 Di:\test 文件 夹 的 所 有 属性 信息 : 


<% 


Dim ObifileSys 

Dim MyDrive 

Set ObjFileSys=Server.CreateObject("Scripting.FileSystemObject") 
Set MyDrive=ObjFileSys.GetFolder("d:\test") 
Response.write MyDrive.Attributes&"<br>" 
Response.write MyDrive.DateCreated&"<br>" 
Response.write MyDrive.DateLastAccessed&"<br>" 
Response.write MyDrive.DateLastModified&"<br>" 
Response.write MyDrive.Drive&"<br>" 
Response.write MyDrive.Path&"<br>" 
Response.write MyDrive.IsRootFolder&"<br>" 
Response.write MyDrive.Name&"<br>" 
Response.write MyDrive.ParentFolder&"<br>" 
Response.write MyDrive.Path&"<br>" 
Response.write MyDrive.ShortName&"<br>" 
Response.write MyDrive.ShortPath&"<br>" 
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Response.write MyDrive.Size&"<br>" 
%> 


以 上 程序 执行 后 的 结果 ， 如 图 8-10 所 示 。 


入 http: 
Divelasp- 记 雪 本 Es er) © 襄 本 | 日 v| 国 Q 


EEC VE 
四 


1 
2015/8/7 15:20:12 
2015/8/7 15:20:12 
2015/8/7 15:20:12 
d: 


PT 


图 8-10 显示 Di:\test 文 件 夹 属性 信息 


注意 : 

在 表 8-8 所 示 的 属性 中 ，Files 与 SubForders 输出 的 是 数据 集合 ， 无 法 输出 。 

Folder 对 象 提供 一 组 可 用 于 复制 、 删 除 和 移动 当前 文件 夹 的 方法 。 这 些 方法 的 运行 方 

与 FileSystemObject 对 象 的 CopyFolder0、DeleteFolder0 和 MoveFolder() 方 法 相同 。 但 
Folder 对 象 的 方法 不 要 求 source 参数 ， 因 为 源 文件 就 是 这 个 文件 夹 。Folder 对 象 的 方法 及 
其 相关 说 明 ， 如 表 8-9 所 示 。 
表 8-9 Folder 对 象 的 方法 及 说 明 
说 了 明 

将 这 个 文件 夹 及 所 有 的 内 容 复 制 到 destination 指定 的 文件 夹 


Delete(force 删除 文件 夹 及 其 包含 的 所 有 内 容 
Move(destination) 将 文件 夹 及 其 包含 所 有 内 容 移动 到 destination 指定 的 文件 夹 


用 指定 的 文件 名 在 文件 夹 内 创建 一 个 新 的 文本 文件 ， 并 且 返 回 一 个 
相应 的 TextStream 对 象 


CreateTextFile(filename,overwrite, 


unicode 


【 例 8-5】 使 用 Folder 对 象 执行 建立 和 删除 文件 夹 操作 。 
(1) 创建 一 个 名 称 为 Folder.asp 的 文件 ， 代 码 如 下 所 示 : 


<%@ Language=VBScript %> 
<% 
Sub CreateAFolder(file) 
Dim fso 
Set fo = CreateObject("Scripting.FileSystemObject") 
fso.CreateFolder(file) 
Tesponse.write "已 经 建立 了 "&file 
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End Sub 


Sub DeleteAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.DeleteFolder(file) 
response.write "已 经 删除 了 "&file 
End Sub 
%> 
<% 
subname=request.form("submit") 
create=request.form("create") 
del=request.form("del") 
if subname——>"" then 
if create—>"" then 
call CreateAFolder(""&create&"") 
endif 
if del<>"" then 
call DeleteAFolder(""&del&"") 
endif 
endif 
%> 
<form action="<%=Request.ServerVariables("Script_Name")%>" method="post"> 
<input name="create"> 
<input type="submit" value=" 建 立 一 个 文件 夹 " name="submit"> 
</form> 
<hr> 
<form action="<%=Request.ServerVariables("Script Name")%>" method="post"> 
<input name="del"> 
<input type="submit" value=" 删 除 文件 夹 " name="submit"> 
</form> 


(2) 运行 Folder.asp 文件 后 ， 结 果 如 图 8-11 所 示 。 


>) 厨 htpy/192168477 x |‖ 十 E> 网 htpy/1921684177 x | 十 
0 MI RR NY 2 双 窜 转 | 四" 图 scQ 
Er ER 
LE me EE 
j 加速 器 局 下 载 | 本 面 哪 司 岛 = 加 于 器 名 下载 | 四 西 中 过 驴 - 


图 8-11 输出 结果 
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8.6 习题 
8.6.1 填空 题 
1. FSO 组 件 可 以 用 来 对 以 及 文件 等 对 象 进行 相关 的 处 理 操作 。 
2. 使 用 FSO 编程 ， 首 先 要 用 方法 创建 FileSystemObject 对 象 。 
3. TextStream 对 象 的 方法 用 来 写 入 一 整 行 数据 至 已 打开 的 数据 流 文件 。 
8.6.2 ”选择 题 
1. 在 Folder 对 象 中 ， 下 面 ( ， ) 属 性 可 以 返回 一 个 对 象 或 对 象 集合 。 
A.Dnve B. ParentFolder C. SubFolders D. Files 
2. 下 面 不 能 创建 或 打开 一 个 文本 文件 并 返回 TextStram 对 象 的 方法 是 (。”)。 
A. CreateTextFile0 C. OpenAsTextStream() 
B. WriteBlankLines() D. OpenTextFile() 


8.6.3 问答 题 


1. 什么 是 File Access 组 件 的 FSO 对 象 ? 
2. 如 何 打开 文本 文件 并 添加 数据 ? 


8.6.4 ”操作 题 


1. 创建 一 个 文本 文件 ， 向 此 文件 中 添加 数据 ， 并 将 数据 输出 到 浏览 器 。 
2. 编辑 一 个 程序 ， 以 列表 方式 显示 站 点 根 目录 中 的 文件 夹 和 文件 。 
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教学 目标 

通过 对 本 章 的 学 习 , 读者 应 熟练 掌握 与 ADO 相关 的 数据 库 基础 知识 ,了解 Connection 
对 象 和 Command 对 象 的 属性 和 方法 ， 可 编制 ASP 程序 与 数据 库 建 立 连接 ， 并 进行 简单 的 
操作 。 

@ Access 数据 库 简介 

e@ 创建 Connection 对 象 

e Command 对 象 的 基本 用 法 


数据 库 是 管理 大 量 、 一 致 、 可 靠 、 共 享 、 持 久 的 数据 资源 的 计算 机 软件 产品 。 数 据 库 
软件 是 动态 网 站 实现 互动 效果 的 一 个 非常 重要 的 核心 组 件 ， 是 支撑 以 电子 商务 、 网 上 论坛 
和 信息 发 布 为 代表 的 一 系列 网 络 服务 的 坚强 支柱 。 在 动态 网 页 的 开发 工作 中 , 应 用 ASP 内 
建 的 DataBase Access 组 件 , 可 以 非常 方便 地 通过 ActiveX Data Objects(ADO) 对 象 访问 存储 
在 服务 器 端的 数据 库 或 其 他 表格 化 数据 结构 中 的 信息 。 


9.1 Access 数据 库 简介 


数据 库 的 主要 功能 是 存储 与 管理 数据 。 在 目前 市 面 上 存在 的 多 种 形式 的 数据 库 产品 
中 , 关系 型 数据 库 最 受 欢 迎 并 被 广泛 使 用 。 该 类 数据 库 将 数据 按 类 别 存储 在 各 种 数据 表 中 ， 
并 且 通 过 数据 表 之 间 的 关联 进行 数据 的 调整 和 搜索 等 维护 操作 。 


9.1.1 Access 数据 库 的 基本 操作 


Access 数据 库 是 目前 比较 流行 的 数据 库 管理 系统 , 它 是 一 个 运行 在 Windows 系统 环境 
下 的 桌面 关系 型 数据 库 , 也 是 Office 组 件 之 一 。 下 面 将 围绕 几 个 与 创建 Access 数据 库 相 关 
的 问题 进行 讲述 ， 以 便 用 户 对 该 数据 库 的 应 用 有 个 概括 的 了 解 。 


1. 认识 Access 数据 库 界面 


Access 数据 库 属于 比较 简单 的 小 型 数据 库 系统 ， 一 般 用 于 小 型 公司 的 数据 管理 。 其 基 
本 数据 库 概 念 与 其 他 大 型 数据 库 系统 (如 Oracle 和 SQL Server 等 ) 并 没有 太 大 的 差别 。 
在 启动 Microsoft Access 2013 后 ， 用 户 首 先 看 到 的 是 版 权 信息 ， 在 选择 “文件 ”|“ 新 
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建 ” 命 令 创建 一 个 库 文件 后 ， 就 可 以 进入 如 图 9-1 所 示 的 工作 界面 。Access 2013 的 工作 界 
面包 括 选项 卡 、“ 所 有 Access 对 象 ” 窗 格 、 工 作 区 和 状态 栏 等 几 个 部 分 组 成 。 


工作 区 


“所 有 Access 对 象 ” 窗 格 上 


TT TT h 状态 栏 
图 9-1 Access 2013 工作 界面 


2. 创建 数据 库 


Access 数据 库 将 数据 按 类 别 存储 在 不 同 的 数据 表 中 ， 以 方便 数据 的 管理 和 维护 。 用 户 
要 设计 数据 表 ， 首 先 要 创建 一 个 数据 库 。 下 面 将 以 一 个 简单 的 实例 ， 详 细 介绍 建立 Access 
2013 数据 库 的 操作 步 又。 

【 例 9-1】 在 服务 器 主 目录 中 新 建 一 个 名 称 为 AcDatabase 的 目录 ， 然 后 利用 Access 
2013 数据 库 软件 创建 一 个 名 称 为 dbl 的 客户 信息 数据 库 ， 并 将 其 保存 在 新 建 的 目录 中 。 

(1) 启动 Access 2013 后 ， 在 软件 默认 打开 的 界面 中 单 击 “空白 桌面 数据 库 ” 选 项 ， 然 
后 在 打开 的 “空白 桌面 数据 库 ” 对 话 框 中 单 击 三 按钮 ， 如 图 9-2 所 示 。 

(2) 在 打开 的 “文件 新 建 数据 库 ” 对 话 框 中 指定 数据 库 文件 的 储存 路 径 ， 然 后 在 “ 文 
件 名 ”文本 框 中 输入 db1， 并 单 击 “确定 ”按钮 ， 如 图 9-3 所 示 。 


[Ee 
GO wasp), ve, Ey 
me 


EI] 
各 [Th [Microsoh Access 2007 - 2013 车 本 foccdb 


spar I - [seas) (es) 


图 9-2 新 建 空白 桌面 数据 库 图 9-3 “文件 新 建 数 据 库 ” 对 话 框 


(3) 返回 “空白 桌面 数据 库 ” 对 话 框 后 ， 在 该 对 话 框 中 单 击 “ 创 建 ”按钮 ， 即 可 创建 
一 个 名 为 dbl.accdb 的 空白 数据 库 。 
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(4) 在 工作 区 右 击 “ 表 1” 选项 卡 ， 在 弹出 的 快捷 菜单 中 选择 “设计 视图 ”命令 ， 如 
图 9-4 所 示 。 

(5) 在 打开 的 “另存 为 ”对 话 框 的 “ 表 名 称 ”文本 框 中 输入 “ 表 1” 后 ， 单 击 “确定 ” 
按钮 ， 如 图 9-5 所 示 。 


图 9-4 启用 设计 视图 图 9-5 “另存 为 ”对 话 框 


(6) 设置 数据 表 中 字段 的 结构 。 首先 在 “ 表 1” 的 设计 检视 窗口 的 “字段 名 称 ” 列 的 第 
一 个 单元 格 中 输入 C-Id， 然 后 在 其 后 的 “数据 类 型 ” 下拉 列表 框 中 选择 “自动 编号 ”选项 ， 
如 图 9-6 所 示 。 

(7) 在 “说 明 ” 列 的 第 一 个 单元 格 中 输入 对 表格 字段 的 描述 文本 。 

(8) 右 击 C-Id 字段 ， 在 弹出 的 快捷 菜单 中 选择 “主键 ”命令 ， 为 C-Id 字段 前 添加 图 由 标 
志 ， 将 该 字段 设置 为 主键 ， 如 图 9-7 所 示 。 


| 所 有 Access 对 .全 
加 


[Ee 
CE 


图 9-6 设置 数据 字段 结构 图 9-7 设置 数据 表 主 键 


(9) 在 “ 表 1” 的 设计 检视 窗口 的 “字段 名 称 ” 列 的 第 二 个 单元 格 中 输入 C-Name， 在 
其 后 的 “数据 类 型 ”下 拉 列 表 框 中 选择 “短文 本 ”选项 ， 在 “说 明 ” 列 的 第 二 个 单元 格 中 
输入 对 表格 字段 的 描述 文本 。 

(10) 选中 C-Name 字段 ， 在 下 面 的 “字段 属性 ”选项 区 域 中 选择 “常规 ”选项 卡 。 然 
后 在 “字段 大 小 ”文本 框 中 输入 30， 在 “必需 ”下 拉 列 表 框 中 选择 “是 ”选项 ， 在 “允许 
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图 9-8 设置 C-Name 字段 参数 


(11) 重复 步骤 (9) 和 步骤 (10) 的 操作 ， 使 用 相同 的 方法 将 表 9-1 所 示 的 内 容 输入 到 “ 表 
1” 的 设计 检视 窗口 中 。 


表 9-1 创建 “ 表 1” 字 段 参照 表 
字段 名 称 


C-Id 


C-Name 
C-address 
C-Tel 


C-Mail 


(12) 完成 字段 录入 工作 后 ，“ 表 1” 的 设计 检视 窗口 如 图 9-9 所 示 。 单 击 Access 2013 
软件 左上 角 的 “保存 ”按钮 日 ， 将 数据 库 保 存 。 

(13) 单 击 工作 区 右 侧 的 * 按 钮 ， 关 闭 设计 视图 ， 然 后 在 “所 有 Access 对 象 ” 窗 格 中 双 
击 “ 表 1” 选项 ， 即 可 在 数据 库 中 输入 数据 ， 如 图 9-10 所 示 。 


Ha 


局 


bo 
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图 9-9 完成 字段 创建 后 的 效果 


图 9-10 输入 数据 库 数据 
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注意 : 

Access 2013 数据 库 操作 非常 简单 ,该 数据 库 所 创建 的 库 文件 是 一 种 扩展 名 为 .accdb 的 
特殊 文件 ， 如 果 用 户 的 计算 机 上 已 经 安装 了 Access 数据 库 软件 ， 双 击 这 种 文件 就 可 以 直接 
打开 Access 数据 库 编辑 窗口 。 


9.1.2 ”Access 数据 库 的 基础 知识 


本 节 将 以 【 例 9-1】 创建 的 数据 库 dbl 为 基础 ， 介 绍 组 成 Access 数据 库 的 各 个 部 分 的 
结构 及 功能 ， 包 括 数据 库 结构 、 数 据 表 结构 、 数 据 内 容 和 字段 索引 等 内 容 。 

1. 数据 库 结 构 

Access 数据 库 通常 包含 多 个 数据 表 。 以 【 例 9-1]】 创 建 的 数据 库 为 例 , 用 户 可 以 在 Access 
2013 中 选择 “创建 ”选项 卡 ， 然 后 单 击 该 选项 卡 中 的 “ 表 ” 按 钮 ， 按 照 同 样 的 操作 步骤 ， 
以 这 个 练习 为 基础 ， 在 数据 库 dbl 中 创建 “ 表 2”“ 表 3”“ 表 4” 或 者 任意 名 称 的 数据 表 
(如 图 9-11 所 示 )， 但 这 些 表 都 属于 db1。 


应 用 得 序 。 表 。 表 没 计 Sharepoint 查询 向 导 查询 设计 
部 件 " 列表 
模板 表格 


末 | 
品 


-11 创建 多 个 数据 表 


注意 : 


关系 型 数据 库 通 常 包含 多 个 内 容 不 同 的 数据 表 ， 并 通过 数据 表 之 间 的 特定 字段 定义 其 
各 自 之 间 的 关系 。 用 户 通过 这 种 关系 ， 可 以 在 不 同 数据 表 中 取得 相关 的 数据 内 容 。 

2. 数据 表 结 构 

在 数据 表 中 包含 两 个 重要 的 属性 : 字段 名 称 和 数据 类 型 。 字 段 名 称 的 作用 是 在 数据 表 
中 识别 字段 ; 而 数据 类 型 则 是 该 字段 所 能 存储 的 数据 类 型 ， 例 如 文字 、 数 字 和 日 期 时 间 等 。 
用 户 可 以 在 “所 有 Access 对 象 ” 窗 格 中 右 击 某 个 数据 表 , 然后 在 弹出 的 快捷 菜单 中 选择 “ 设 
计 视 图 ”命令 ， 打 开 表 的 设计 检视 窗口 ， 对 数据 表 的 属性 进行 调整 。 

图 9-12 所 示 的 内 容 就 是 【 例 9-1】 所 创建 的 数据 表 “ 表 1” 的 设计 检视 窗口 。 其 中 被 
选中 的 部 分 代表 数据 表 “ 表 1” 中 字段 名 称 为 C-Name 的 字段 ， 而 窗口 下 面 “ 常 规 ” 选 项 
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卡 中 的 设置 则 包含 了 该 字段 的 各 种 特性 设置 ， 例 如 ， 在 “字段 大 小 ”文本 框 中 设置 字段 所 
能 存储 的 数据 长 度 ， 在“ 必需” 下拉 列 表 框 中 设置 字段 是 否 为 必 有 值 ， 在 “允许 空 字符 串 ” 
下 拉 列 表 框 中 设置 字段 内 容 是 否 可 为 空 字符 串 等 。 


图 9-12 数据 表 “ 表 1” 的 设计 检视 窗口 


另外 ， 在 数据 表 的 设计 检视 窗口 中 ， 单 击 “ 数 据 类 型 ” 列 单元 格 中 的 下 拉 按 钮 ， 在 弹 
出 的 下 拉 列 表 框 中 还 可 以 为 字段 设置 数据 类 型 限制 .以 图 9-12 所 显示 的 C-Name 字段 为 例 ， 
它 的 数据 类 型 为 “短文 本 ”， 如 果 用 户 需 要 修改 这 项 设置 ， 可 以 单 击 该 字段 的 “数据 类 型 ” 
下 拉 按钮 ， 然 后 在 弹出 的 下 拉 列 表 框 中 选择 所 需 的 选项 。 

3. 数据 内 容 

数据 库 中 的 数据 内 容 存储 于 数据 表 中 ， 用 户 在 数据 库 工 作 区 中 双击 数据 表 名 称 即 可 打 
开 数 据 表 。 从 外 观 上 看 ， 数 据 表 类 似 Excel 表格 ， 每 一 行 代表 一 个 记录 ， 每 一 列 代表 一 个 
字段 ， 并 且 每 个 字段 都 有 其 特定 的 字段 名 称 和 字段 数据 类 型 。 如 图 9-10 所 示 的 内 容 ， 就 是 
【 例 9-1】 创 建 的 数据 表 “ 表 1” 完 成 内 容 填充 后 的 关于 客户 数据 的 数据 表 。 


注意 : 

单 击 数据 表 中 的 某 项 记录 ， 就 可 以 针对 该 记录 进行 修改 ， 或 者 直接 按 Delete 键 将 其 
删除 。 

4. 字段 索引 

索引 是 一 种 字段 标识 ， 通 常 一 个 数据 表 字 段 在 设计 完成 后 ， 还 需要 针对 其 中 的 字段 设 
置 索引 。 索 引 的 主要 功能 有 两 种 : 增加 数据 的 搜索 速度 和 设置 数据 表 关 联 。 数 据 表 中 索引 
的 作用 就 如 同 书签 一 样 ， 数 据 库 可 以 根据 索引 快速 地 查找 到 存储 于 数据 表 中 的 特定 数据 ; 
而 数据 表 之 间 的 索引 字段 关联 则 可 以 串联 不 同 数据 表 中 的 数据 内 容 。 

索引 本 身 根据 其 功用 可 以 分 为 两 种 : 主键 ( 主 索 引 ) 和 一 般 性 索引 。 一 个 数据 表 中 只 能 
有 一 个 字段 被 设置 为 主键 ， 而 被 设置 为 主键 的 字段 在 整个 数据 表 中 的 数据 内 容 是 唯一 值 ， 
不 允许 被 重复 。 例 如 在 【 例 9-1) 的 步骤 (8) 中 将 C-Id 字段 设置 为 主键 ， 该 字段 作为 数据 表 的 
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客户 编号 字段 ， 当 用 户 在 数据 表 中 输入 数据 内 容 时 将 不 会 有 重复 的 客户 编号 存在 ， 这 样 数据 
库 系统 就 可 以 根据 这 个 字段 中 的 编号 取得 特定 客户 的 数据 内 容 。 

一 个 数据 库 中 可 以 有 多 个 字段 被 设置 为 一 般 性 索引 。 这 种 索引 的 功用 除了 与 其 他 数据 表 
的 主键 字段 关联 以 外 , 还 可 以 加 速 数据 库 的 搜索 速度 。 下 面 就 以 一 个 简单 的 实例 , 介绍 在 【 例 
9-1】 创建 的 数据 库 dbl 中 为 数据 表 “ 表 1” 的 C-Id 字段 设置 一 般 性 索引 的 操作 步骤 。 

【 例 9-2】 以 【 例 9-1】 所 创建 的 数据 库 dbl 中 的 数据 表 “ 表 1” 为 基础 ， 设 置 该 数据 表 
中 字段 C-Id 与 字段 C-Tel 之 间 的 一 般 性 索引 。 

(1) 在 Access 2013 中 打开 数据 库 db1， 然 后 在 “所 有 Access 对 象 ” 窗 格 中 右 击 数据 表 
“ 表 1]”， 在 弹出 的 快捷 菜单 中 选择 “设计 视图 ”命令 ， 进 入 “ 表 1” 的 设计 检视 窗口 。 

(2) 选择 “设计 ”选项 卡 ， 然 后 在 “显示 /隐藏 ”选择 组 中 单 击 “索引 ”按钮 ， 如 图 9-13 
所 示 。 

(3) 打开 “索引 : 表 1” 对 话 框 ， 在 “索引 名 称 ” 列 的 第 一 个 单元 格 中 输入 C-Id， 单 
击 其 后 的 “字段 名 称 ”下 拉 按 钮 ,在 弹出 的 下 拉 列 表 框 中 选择 C-Tel 选项 ， 如 图 9-14 所 示 。 


笃 雪 引 字 所 的 人 名称， 


图 9-13 “设计 ”选项 卡 图 9-14 “索引 : 表 1” 对 话 框 


(4) 完成 设置 后 关闭 “索引 : 表 1” 对 话 框 ， 在 数据 表 “ 表 1” 的 C-Tel 字段 中 成 功 新 
增 一 个 名 称 为 C-Id 的 字段 索引 。 


9.1.3 SQL 简介 


SQL 是 结构 化 查询 语言 (Structured Query Language) 的 缩写 ， 它 包括 查询 、 定 义 、 操 纵 
和 控制 4 个 部 分 ， 是 一 种 功能 齐全 的 数据 库 语 言 。 

数据 查询 是 指 按 要 求 查找 出 满足 条 件 的 记录 的 操作 。 数 据 定义 是 指 对 关系 模式 一 级 的 
定义 。 数 据 操纵 是 指 对 关系 中 的 具体 数据 进行 增加 、 删 除 、 修 改 和 更 新 等 操作 。 数 据 控 制 
是 指 对 数据 访问 权限 的 授予 或 撤销 。 

SQL 具有 语言 简洁 、 方 便 实 用 、 功 能 齐全 等 优点 。 目 前 ， 大 多 数 数据 库 管 理 系统 都 支 
持 SQL 或 提供 SQL 接口 。 


1. SQL 的 构成 


SQL 是 由 命令 、 子 句 和 运算 符 等 元 素 所 构成 的 ， onto 更 
新 和 操作 数据 库 的 语句 .SQL 语言 常 分 为 3 类 :数据 定义 语言 DDL、 数 据 操纵 语言 
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数据 控制 语言 DCL 。 
数据 定义 语言 DDL 完成 定义 数据 库 的 结构 ， 包 括 数据 库 本 身 、 数 据 表 、 目 录 、 视 图 
等 数据 库 元 素 。 常 用 DDL 语句 及 其 相关 说 明 ， 如 表 9-2 所 示 。 


表 9-2 常用 DDL 语句 及 其 相关 说 明 


常用 DDL 语句 说 明 
CREATE TABLE 创建 表 
CREATE INDEX 创建 索引 
CREATE VIEW 创建 视图 
ALTER TABLE 增加 表 列 ， 重 定义 表 列 ， 更 改 存储 分 配 
DROP TABLE 删除 表 
DROP INDEX 删除 索引 


数据 操纵 语言 DML 完成 在 数据 库 中 确定 、 修 改 、 添 加 、 删 除 某 一 数据 值 的 任务 。 常 


用 DML 语句 及 其 相关 说 明 ， 如 表 9-3 所 示 。 
表 9-3 常用 DML 语句 及 其 相关 说 明 
常用 DML 语句 说 了 明 
SELCECT 在 数据 库 中 查找 满足 指定 条 件 的 记录 
INSERT 增加 数据 行 到 表 
DELETE 从 表 中 删除 数据 行 
UPDATE 更 改 表 中 数据 


数据 控制 语言 DCL 用 来 授予 或 回收 访问 数据 库 的 某 种 特权 ， 并 控制 数据 库 操纵 事务 
发 生 的 时 间 及 效果 ， 对 数据 库 实 行 监视 等 。 常 用 DCL 语句 及 其 相关 说 明 ， 如 表 9-4 所 示 。 
表 9-4 常用 DCL 语句 及 其 相关 说 明 
DCL 语句 说 了 明 
GRANT 将 权限 或 角色 授予 用 户 或 其 他 角色 
REVODE 回收 用 户 权限 


ROIL 回 深 。 这 是 一 个 把 信息 恢复 到 用 户 使 用 update、insert、delete 前 最 后 提交 的 状态 
COMMIT 是 交 。 在 完成 数据 库 的 插入 、 删 除 和 修改 操作 时 ， 只 有 当 事 务 提交 到 数据 库 才 算 完 成 


一 个 SQL 语句 是 一 个 由 从 名 组 成 的 命令 ， 从 句 指定 了 要 执行 的 操作 、 数 据 源 以 及 任何 完成 
操作 所 需 的 结构 。 每 个 从 句 必须 起 始 于 一 个 关键 字 。 常 用 的 从 名 及 其 相关 说 明 ， 如 表 9-5 所 示 。 


表 9-5 常用 DCL 语句 及 其 相关 说 明 


子 ” 向 说 明 
FROM 指定 要 对 其 进行 操作 的 数据 源 
WHERE 对 操作 设 定 一 个 或 多 个 条 件 
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( 续 表 ) 


子 名 
ORDERBY 对 查询 结果 进行 排序 
GROUP BY 对 查询 结果 进行 分 组 
HAVING 指定 分 组 的 条 件 


SQL 运算 符 可 分 为 下 面 几 种 类 别 。 

e 比较 运算 符 (大 小 比较 ): >、 汪 、=、<、<=、 二 、!>、!<。 

。 范围 运算 符 ( 表 达 式 值 是 否 在 指定 的 范围 ): BETWEEN…AND…、NOT 
BETWEEN…AND…。 

e 列表 运算 符 (判断 表达 式 是 否 为 列表 中 的 指定 项 ): IN (项 1. 项 2…)、NOT IN (项 1， 
项 2 

e 模式 匹配 符 (判断 值 是 否 与 指定 的 字符 通 配 格式 相符 ): LIKE、NOT LIKE。 

e 空 值 判断 符 (判断 表达 式 是 否 为 空 ):: IS NULL、NOT IS NULL。 

e 逻辑 运算 符 ( 用 于 多 条 件 的 逻辑 连接 ):; NOT、AND、OR。 

SQL 还 有 一 些 用 来 计算 的 函数 ， 即 合计 函数 。 例 如 ， 用 AVG 函数 计算 平均 值 ， 用 

COUNT 函数 返回 记录 数 ， 用 SUM 函数 计算 总 和 ， 用 MAX 函数 计算 最 大 值 等 。 


2. SELECT 语句 


SELECT 语句 的 功能 是 从 现 有 的 数据 库 中 检索 数据 ， 将 满足 一 定 约束 条 件 的 一 个 或 多 
个 表 中 的 字段 从 数据 库 中 挑选 出 来 ， 并 按 一 定 的 分 组 和 排序 方法 显示 出 来 。 

简单 的 SQL 查询 只 包括 选择 列表 、FROM 子 句 和 WHERE 子 句 ， 它 们 分 别 说 明 所 查 
询 列 、 查 询 的 表 或 视图 以 及 搜索 条 件 等 。 例 如， 下 面 的 语句 查询 Customers 表 中 名 称 为 “ 创 
新 书店 ”的 CustID 字段 和 CustName 字段 。 


SELECT CustID, CustName 
FROM Customers 
WHERE name=' 创 新 书店 ' 


选择 列表 (select_lisb 指 出 所 查询 列 ， 它 可 以 是 一 组 列 名 列表 、 星 号 、 表 达 式 、 变 量 ( 包 
括 局 部 变量 和 全 局 变量 ) 等 。 星 号 代表 所 有 的 记录 和 字段 , 例如 ,下 面 语句 将 显示 Customers 
表 中 所 有 列 的 数据 : 


SELECT™* 
FROM Customers 


注意 : 

SELECT 语 名 中 使 用 ALL 或 DISTINCT 选 项 显示 表 中 符合 条 件 的 所 有 行 或 删除 其 中 重 
复 的 数据 行 ， 默认 为 ALL。 使 用 DISTINCT 选项 时 ， 对 于 所 有 重复 的 数据 行 在 SELECT 
返回 的 结果 集合 中 只 保留 一 行 。 
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在 选择 列表 中 ， 可 重新 指定 列 标题 。 如 果 指 定 的 列 标题 不 是 标准 的 标识 符 格式 时 ， 应 


使 用 引号 定 界 符 。 例 如 ， 下 面 语句 使 用 汉字 显示 列 标题 : 


SELECT 编号 = CustID, 姓 名 = CustName 
FROM Customers 


3. FROM 子 句 
FROM 子 句 指定 SELECT 语句 查询 及 与 查询 相关 的 表 或 视图 。 在 FROM 子 句 中 最 多 


可 指定 256 个 表 或 视图 ， 它 们 之 问 用 逗号 分 隔 。 


FROM 子 句 同时 指定 多 个 表 或 视图 时 ， 如 果 选 择 列表 中 存在 同名 列 ， 这 时 应 使 用 对 象 


名 限定 这 些 列 所 属 的 表 或 视图 。 例如， 在 Customers 和 Orders 表 中 同时 存在 CustName 列 ， 
在 查询 两 个 表 中 的 CustName 时 应 使 用 下 面 语句 格式 加 以 限定 : 


SELECT CustID Address, Orders.price 
FROM Customers, Orders 
WHERE Customers.CustName =Orders.CustName 


在 FROM 子 句 中 可 用 以 下 两 种 格式 为 表 或 视图 指定 别名 : 


表 名 as 别名 
表 名 别名 
上 面 语句 可 用 表 的 别名 格式 表示 为 


SELECT CustID, Address, Orders.price 
FROM Customers as 客户 资料 , Orders 订单 资料 
WHERE 客户 资料 .CustName = 订单 资料 CustName 


注意 : 

SELECT 语句 不 仅 能 从 表 或 视图 中 检索 数据 ， 还 能 够 从 其 他 查询 语句 所 返回 的 结果 集 
合 中 查询 数据 。 

4. WHERE 子 句 


EE 


WHERE 子 句 用 于 设置 查询 条 件 ， 过 滤 掉 表 中 不 需要 的 数据 行 。 它 可 以 包含 多 个 表达 


表达 式 之 间 要 用 AND 或 OR 等 运算 符 连 接 起 来 。 
例如 ， 下 面 语句 将 在 订单 资料 表 中 查询 交易 金额 为 100 一 300 的 订单 明细 : 
SELECT* 

FROM Orders 


WHERE price BETWEEN 100 AND 300 
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5. ORDER BY 子 名 
使 用 ORDER BY 子 句 对 查询 返回 的 结果 进行 排序 。ORDER BY 子 句 的 语法 格式 为 : 


ORDER BY {column name [ASCIDESC]} [,...n] 


其 中 ，ASC 为 升序 ，DESC 为 降序 。ORDER BY 不 能 按 ntext、text 和 image 数据 类 型 
进行 排序 。 

ORDER BY 子 句 中 还 可 包含 多 个 字段 , 这样 记 录 先 按 第 一 个 字段 排序 , 然后 对 值 相等 
的 记录 再 按 第 二 个 字段 排序 。 另 外 ， 还 可 以 在 ORDER BY 子 句 中 加 入 表达 式 ， 根 据 计 算 
结果 进行 排序 。 例 如 ， 下 面 语句 将 在 订单 资料 表 中 先 按 交 易 排序 : 


SELECT* 
FROM Orders 
ORDER BY price desc,CustID ASC 


6. SELECT…INTO 语句 
SELECT…INTO 语句 用 来 从 查询 结果 中 建立 新 表 。 例 如 : 


SELECT CustID, CustName INTO # Customers2 
FROM Customers 


7. DELETE 语句 


DELETE 语句 的 功能 是 删除 FROM 子 句 列 出 的 、 满 足 WHERE 子 句 条 件 的 一 个 或 多 个 
表 中 的 记录 。 例 如 ， 可 以 用 下 面 的 语句 从 Customers 表 中 删除 姓 “ 刘 ”的 记录 : 


DELETE FROM Customers 
WHERE CustName LIKE ' 刘 %o' 


8.INSERT INTO 语句 


INSERT INTO 语句 用 于 添加 一 个 或 多 个 记录 到 表 中 。 例 如 ， 以 下 语句 往 Customers 表 


INSERT INTO Customers 
(CustID,CustName,Address,Phone) 
VALUES (KT015', 陈 永超 ,东方 红 大 道 11 号 "64512458) 


9. UPDATE 语句 


UPDATE 语句 用 于 按 某 个 条 件 更 新 特定 表 中 的 字段 值 。 例如, 以 下 语句 将 OrderDetails 
表 中 所 有 单价 改 为 120: 


UPDATE OrderDetails SET price=120 


。190 。 ASP 动态 网 站 开发 基础 教程 (第 5 版 ) 


9.1.4 ODBE 简介 


开放 数据 库 互 连 (Open DataBase Connectivity，ODBC) 是 Microsoft 开发 的 一 套 读 取 数 
据 库 的 解决 方案 ， 它 将 所 有 对 数据 库 的 底层 操作 全 部 隐藏 在 ODBC 的 驱动 程序 内 核 里 。 对 
于 用 户 来 说 ， 只 要 构建 了 一 个 指向 数据 库 的 连接 ， 就 可 以 采用 统一 的 应 用 程序 编程 接 
(Application Program Interface，APT) 实 现 对 数据 库 的 读 写 , 或 用 相同 的 代码 访问 不 同 格式 的 
数据 库 。 

1. ODBC 驱动 


使 用 ODBC 简化 了 对 数据 库 的 访问 ， 也 为 程序 的 跨 平 台 开 发 和 移植 提供 了 极 大 的 方 
便 , ODBC 可 对 大 多 数 类 型 的 数据 库 提供 支持 , 包括 dBase、Informix、Access、SQL Server 
和 Oracle 等 ， 还 可 对 一 些 其 他 类 的 数据 库 文件 提供 支持 ， 如 文本 、Excel 电子 表格 等 。 对 于 
一 些 特 殊 的 数据 库 ， 只 要 安装 数据 库 厂商 提供 的 ODBC 程序 ， 也 就 能 够 在 程序 中 直接 对 数 
据 库 进行 操作 。 

ODBC 由 应 用 程序 、 驱 动 程序 管理 器 、 驱 动 程序 和 数据 源 等 部 分 组 成 。 应 用 程序 通过 
ODBC 接口 访问 不 同 数据 源 中 的 数据 ， 每 个 不 同 的 数据 源 类 型 由 一 个 驱动 程序 支持 ， 驱 动 
程序 管理 器 为 应 用 程序 装 入 合适 的 驱动 程序 ， 如 图 9-15 所 示 。 


图 9-15 ODBC 的 结构 


ASP 必须 建立 与 数据 库 之 间 的 联系 才能 使 用 数据 库 中 的 数据 。 要 在 ASP 中 使 用 ADO 
对 象 操作 数据 库 , 首先 要 创建 一 个 指向 该 数据 库 的 ODBC 连接 。 在 Windows 系统 中 , ODBC 
的 连接 主要 通过 ODBC 数据 源 管理 器 完成 。 

2. DSN 数据 源 

数据 库 驱 动 程序 使 用 数据 源 (Data Source Name，DSN) 定 位 和 标识 特定 的 ODBC 兼容 
数据 库 ， 将 信息 从 Web 应 用 程序 传递 给 数据 库 。DSN 包含 数据 库 配 置 、 用 户 安全 性 和 定 
位 信息 ， 且 可 以 获取 Windows 注册 表 项 或 以 文本 文件 格式 存储 的 表格 。 

构建 ODBC 连接 就 是 创建 同 数据 源 的 连接 ， 也 就 是 创建 DSN。 一 个 DSN 就 是 对 数据 
库 的 一 个 命名 连接 。 一 旦 创建 了 一 个 指向 数据 库 的 ODBC 连接 ， 同 该 数据 库 连 接 的 有 关 信 
息 就 被 保存 在 DSN 中 。 在 程序 中 操作 数据 库 也 必须 通过 DSN 进行 。 
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DSN 分 为 用 户 、 系 统 和 文件 3 种 类 型 。 用 户 DSN 和 系统 DSN 将 信息 存储 在 Windows 
注册 表 中 ， 它 位 于 注册 表 中 的 如 下 位 置 ; HREY LOCAL MACHINE\SOFTWARE\ODBC\ 
ODBC.INI。 用 户 DSN 只 被 用 户 直接 使 用 ， 它 只 能 用 于 当前 机 器 中 ，ASP 不 能 使 用 它 。 系 
统 DSN 允许 所 有 用 户 登录 到 特定 服务 器 上 去 访问 数据 库 ， 任 何 具 有 权限 的 用 户 都 可 以 访 
问 系 统 DSN。 在 Web 应 用 程序 中 访问 数据 库 时 , 通常 都 是 建立 系统 DSN。 文件 DSN 将 信 
息 存储 在 后 级 为 .dsn 的 文本 文件 中 ， 如 果 将 此 文件 放 在 网 络 的 共享 目录 中 ， 那 么 可 以 被 网 
络 中 的 任何 一 台 工 作 站 访问 到 。 

文件 DSN 的 优点 在 于 方便 移动 ， 因 为 DSN 信息 保存 在 独立 的 文件 中 ， 如 果 希 望 将 整 
个 Web 应 用 程序 和 数据 库 移 动 到 其 他 计算 机 中 ， 只 需要 连同 生成 的 DSN 文件 一 起 移动 即 
可 。 而 系统 DSN 因为 信息 是 保存 在 注册 表 中 ， 所 以 移动 起 来 就 不 那么 方便 。 系 统 DSN 的 
优点 在 于 方便 修改 ， 只 需要 简单 地 修改 Windows 的 注册 表 即 可 。 而 对 于 使 用 文件 DSN 的 
用 户 ， 则 必须 每 次 修改 Globalasa 文件 。 另 外 ， 如 果 需 要 在 计算 机 上 许多 不 同 的 应 用 程序 
中 使 用 同一 个 DSN， 那 么 使 用 系统 DSN 更 为 方便 。 


【 例 9-3】 在 Windows 7 系统 中 以 【 例 9-1】 创 建 的 数据 库 为 基础 ， 创 建 一 个 名 称 为 
netdsn 的 系统 DSN。 

(1) 在 “控制 面板 ”窗口 中 双击 “管理 工具 ”图 标 ,， 打开 “管理 工具 ”窗口 ， 然 后 在 “ 数 
据 源 (ODBC)” 项 目 上 双击 ， 如 图 9-16 所 示 。 

(2) 在 打开 的 “ODBC 数据 源 管理 器 ”对 话 框 中 ， 单 击 “ 系 统 DSN” 标 签 ， 打 开 “ 系 
统 DSN” 选 项 卡 ， 如 图 9-17 所 示 。 
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图 9-16 ”启动 数据 源 (ODBC) 管 理 器 图 9-17 “系统 DSN” 选 项 卡 


(3) 单 击 “ 添 加 ”按钮 ， 系 统 弹出 “创建 新 数据 源 ” 对 话 框 ,选择 Microsoft Access 
Driver(*.mdb,*,accdb) 选 项 ， 然 后 单 击 “完成 ”按钮 ， 如 图 9-18 所 示 。 

(4) 在 系统 打开 的 “ODBC Microsoft Access 安装 ”对 话 框 中 输入 系统 DSN 的 名 称 
netdsn 后 ， 单 击 “ 选 择 ” 按 钮 ， 如 图 9-19 所 示 。 
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图 9-18 “创建 新 数据 源 ” 对 话 框 图 9-19 “ODBC Microsoft Access 安装 ”对 话 框 


(5) 在 系统 打开 的 “选择 数据 库 ” 对 话 框 中 ， 选 中 【 例 9-1】〗 创 建 的 数据 库 dbl 后 (如 
图 9-20 所 示 )， 单 击 “ 确 定 ”按钮 ， 返 回 “ODBC Microsoft Access 安装 ”对 话 框 。 
(6) 单 击 “ODBC Microsoft Access 安装 ”对 话 框 中 的 “确定 ”按钮 ， 然 后 在 如 图 9-21 
所 示 的 “ODBC 数据 源 管理 器 ”对 话 框 中 单 击 “ 确 定 ”按钮 ， 完 成 系统 DSN 的 安装 。 
人 ooecasasag 
时 所 [中 院 “| 连接 也 | 关于 


TEL IE 
数据 库 名 (A) 

dbl.accdb 添加 中) 
Er | ED 
dbi.mdb (RO. 


| 
| 


ED EE fA 世 和 本 


文件 类 型 ); 
| | |Access 数据 库 (,mdb; ,~ 


图 9-20 选中 数据 库 文件 图 9-21 完成 系统 DSN 的 安装 
9.1.5 OLE DB 简介 


OLE DB 是 一 种 提供 统一 数据 访问 接口 的 技术 标准 。 可 以 访问 的 数据 包括 标准 的 关系 
型 数据 库 中 的 数据 , 还 包括 邮件 数据 、Web 上 的 文本 或 图 形 、 目 录 服 务 (Directory Services)， 
以 及 主机 数据 库 ( 如 IMS 和 DB2)、 服 务 器 数据 库 (如 Oracle 和 SQL ServeD 和 桌面 型 数据 库 (如 
Microsoft Access)。 

OLE DB 标准 的 核心 内 容 就 是 要 求 各 种 各 样 的 数据 存储 (Data Store) 都 提供 一 种 相同 的 访 
问 接口 。 这 种 接口 封装 了 各 种 数据 系统 的 访问 操作 ， 使 数据 的 使 用 者 (应 用 程序 ) 可 以 使 用 同样 
的 方法 访问 各 种 数据 ， 而 不 用 考虑 数据 的 具体 存储 地 点 、 格 式 或 类 型 。OLE DB 还 提供 了 一 
组 标准 的 服务 组 件 ， 用 于 提供 查询 、 绥 存 、 数 据 更 新 、 事 务 处 理 等 操作 。 因 此 ， 数 据 提 供 方 只 
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需要 实现 一 些 简单 的 数据 操作 ， 使 用 方 就 可 以 获得 全 部 的 数据 控制 能 力 。 

OLE DB 将 传统 的 数据 库 系统 划分 为 多 个 逻辑 组 件 ， 这 些 组 件 之 间 相对 独立 又 相互 通 
信 。 这 种 组 件 模 型 中 的 各 个 部 分 被 冠 以 不 同 的 名 称 。 

e 数据 提供 者 (Data Provider): 提供 数据 存储 的 软件 组 件 ， 小 到 普通 的 文本 文件 ， 大 

到 主机 上 的 复杂 数据 库 ， 或 者 电子 邮件 存储 。 

e 数据 服务 提供 者 (Data Service ProvidenD: 位 于 数据 提供 者 之 上 、 从 旧 的 数据 库 管理 
系统 中 分 离 出 来 、 独 立 运 行 的 功能 组 件 ， 例 如 查询 处 理 器 (Query Processor) 和 游标 
引擎 (Cursor Engine)， 这 些 组 件 使 数据 提供 者 提供 的 数据 以 表 状 数据 (Tabular Data) 
的 形式 向 外 表示 (不 管 真实 的 物理 数据 是 如 何 组 织 和 存储 的 )， 并 实现 数据 的 查询 和 
修改 功能 。 

e 业务 组 件 Business Component): 利用 数据 服务 提供 者 、 专 门 完成 某 种 特定 业务 信 
息 处 理 、 可 以 重用 的 功能 组 件 。 分 布 式 数 据 库 应 用 系统 中 的 中 间 层 (Middle-Tier) 就 
是 这 种 组 件 的 典型 例子 。 

e 数据 使 用 者 (Data Consumer): 任何 需要 访问 数据 的 系统 程序 或 应 用 程序 , 除了 典型 
的 数据 库 应 用 程序 之 外 ， 还 包括 需要 访问 各 种 数据 源 的 开发 工具 或 语言 。 

OLE DB 和 ODBC 标准 都 是 为 了 提供 统一 的 访问 数据 接口 , ODBC 标准 的 对 象 是 基于 
SQL 的 数据 源 (SQL-Based Data Source)， 而 OLE DB 的 对 象 则 是 范围 更 为 广泛 的 任何 数据 
存储 。 所以, 符合 ODBC 标准 的 数据 源 是 符合 OLE DB 标准 的 数据 存储 的 子 集 ， 同 时 还 提 
供 有 相应 的 OLE DB 服务 程序 (Service Provider)。 

OLE DB 标准 的 具体 实现 是 一 组 API 函数 , 就 像 ODBC 标准 中 的 API 函数 一 样 , 不 同 
的 是 ，OLE DB 中 的 API 函数 是 符合 COM 标准 、 基 于 对 象 的 。 使 用 OLE DB 中 的 API 函 
数 ， 可 以 编写 能 够 访问 符合 OLE DB 标准 的 任何 数据 源 的 应 用 程序 ， 也 可 以 编写 针对 某 种 
特定 数据 存储 的 查询 处 理 程序 和 游标 引擎 ， 因 此 OLE DB 标准 实际 上 是 规定 了 数据 使 用 者 
和 提供 者 之 间 的 一 种 应 用 层 的 协议 (Application-Level Protocol)。 


9.1.6 ADO 对象 模型 


ADO 是 应 用 层 的 编程 接口 ， 它 通过 OLE DB 提供 的 接口 访问 数据 ， 这 样 各 种 编程 语 
言 都 能 够 编写 符合 OLE DB 标准 的 应 用 程序 。 

ADO 封装 了 OLE DB 中 最 常用 的 一 些 特性 ，ADO 可 以 在 Visual Basic 或 Visual C++ 
中 使 用 ， 也 可 在 服务 器 端 脚本 中 使 用 。 在 使 用 ADO 时 ，ASP 应 用 程序 和 底层 数据 库 间 的 
关系 如 图 9-22 所 示 。 
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Active 数据 对 象 (ADO) 


se 服务 提供 者 


- - -数据 提供 者 


图 9-22 ASP 应 用 程序 和 底层 数据 库 间 的 关系 


从 图 9-22 中 可 以 看 出 , 应 用 程序 既 可 以 通过 ADO 访问 数据 ,也 可 以 直接 通过 OLE DB 
访问 数据 ， 而 ADO 则 通过 OLE DB 访问 底层 数据 。 

OLE DB 分 成 两 部 分 : 一 部 分 由 数据 提供 者 实现 ， 包 括 一 些 基 本 功能 ， 如 获取 数据 、 
修改 数据 、 添 加 数据 项 等 ， 另 一 部 分 由 系统 提供 ， 包 括 一 些 高 级 服务 ， 如 游标 功能 、 分 布 
式 查 询 等 。 这 样 的 层次 结构 既 为 数据 使 用 者 ( 即 应 用 程序 ) 提 供 了 多 种 选择 方案 ， 又 为 数据 
提供 方 简化 了 服务 功能 的 实现 手段 ， 它 只 需要 按 OLE DB 规范 编写 一 个 COM 组 件 程序 即 
可 ， 使 得 第 三 方 发 布 数据 更 为 简便 。 而 在 应 用 程序 方 可 以 得 到 全 面 的 功能 服务 ， 这 充分 体 
现 了 OLE DB 两 层 结构 的 优势 。 


9.1.7 ADO 对 象 简介 


ADO 实际 上 是 OLE DB 的 应 用 层 接 口 ， 这 种 结构 也 为 一 致 的 数据 访问 接口 提供 了 很 
好 的 扩展 性 ， 而 不 再 局 限于 特定 的 数据 源 。 因 此 ，ADO 可 以 处 理 各 种 OLE DB 支持 的 数 
据 源 。 ADO 本 身 由 多 个 对 象 组 成 ， 这 些 对 象 分 别 负责 提供 各 种 数据 库 操作 行为 ,大致 上 可 
以 分 为 连接 、 修 改 和 查询 3 个 部 分 ， 如 图 9-23 所 示 。 
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图 9-23 ADO 对 象 模型 


在 ADO 模型 中 ， 主 体 对 象 只 有 Connection、Command 和 Recordset 3 个 。 一 个 典型 的 
ADO 应 用 ,使 用 Connection 对 象 建立 与 数据 源 的 连接 ; 然后 用 一 个 Command 对 象 给 出 对 


数据 库 操作 的 命令 ， 


比如 查询 或 更 新 数据 等 ; 而 Recordset 用 于 对 结果 集 数据 进行 维护 或 浏 


览 等 操作 。 其 他 4 个 集合 对 象 Erors、 Properties、 Parameters 和 Fields 分 别 对 应 Eror、 Property、 
Parameter 和 Field 对 象 。 整 个 ADO 对 象 模型 由 这 些 对 象 组 成 ， 如 表 9-6 所 示 。 


对 象 


Connection 对 象 


Command 对 象 


Recordset 对 象 


表 9-6 ADO 中 的 对 象 
说 明 

连接 。 创 建 与 数据 库 互动 所 需 的 连接 , 任何 数据 库 的 操作 行为 都 必须 在 连接 基础 
下 进行 。 因 此 在 使 用 ADO 之 前 ， 首 先 要 创建 一 个 Connection 对 象 。 必 须 注意 的 
是 ， 这 个 动作 不 是 绝对 的 ，ADO 本 身 会 在 没有 Connection 对 象 的 情形 之 下 ， 自 
行 创建 所 需 的 连接 对 象 
修改 。 针 对 连接 的 数据 库 进 行 数据 变动 ， 将 用 户 提供 的 指令 传送 到 数据 库 。 进 行 
新 增 、 删 除 或 是 修改 资料 等 变动 处 理 ， 指 令 便 是 使 用 于 变动 数据 的 SQL 语句 
查询 。 向 连接 的 数据 库 ， 提 出 取得 符合 特定 条 件 的 数据 内 容 。 应 用 程序 从 
Recordset 对 象 取得 所 要 处 理 的 特定 数据 内 容 ， 这 数据 可 能 是 某 个 特定 数据 表 的 
全 部 或 是 特定 内 容 , 或 是 跨越 多 个 数据 表 所 取得 的 关系 型 数据 ,这 些 数据 以 二 维 
数组 的 形式 提供 


do 


Fields 集合 和 Field 
对 象 


Fields 集合 处 理 记录 中 的 各 个 列 。 记 录 集 中 返回 的 每 一 列 在 Fields 集合 中 都 有 一 
个 相关 的 Field 对 象 。Field 对 象 使 得 用 户 可 以 访问 列 名 、 列 数据 类 型 以 及 当前 记 
录 中 列 的 实际 值 等 信息 


Parameters 集合 和 


Command 对 象 包含 一 个 Parameters 集合 .Parameters 集合 包含 参数 化 的 Command 


Parameter 对 象 对 象 的 所 有 参数 ， 每 个 参数 信息 由 Parameter 对 象 表示 
Connection、Command、Recordset 和 Field 对 象 都 含有 Proiperties 集合 。Properties 
Properties 集合 
- 集合 用 于 保存 与 这 些 对 象 有 关 的 各 个 Property 对 象 。Property 对 象 表示 各 个 选项 
Property 对 象 


设置 或 其 他 没有 被 对 象 的 固有 属性 处 理 的 ADO 对 象 特征 
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( 续 表 ) 
对 _ 象 说 了 明 
Erors 集合 和 Emror | Connection 对 象 包含 一 个 Errors 集合 。Emors 集合 包含 的 Error 对 象 给 出 了 关于 
对 象 数据 提供 者 出 错时 的 扩展 信息 


9.2 Connection 对 象 连接 数据 库 


Connection 对 象 又 称 连 接 对 象 ， 用 来 和 数据 库 建 立 连 接 。Connection 对 象 建立 连接 后 ， 
才 可 以 利用 Command 对 象 或 Recordset 对 象 对 数据 库 进 行 各 种 操作 。 


9.2.1 与 数据 库 建立 连接 


建立 Connection 对 象 是 采用 Server 对 象 的 CreateObject() 方 法 进行 的 , 其 语法 结构 如 下 : 
Set Connection 对 象 = Server.CreateObject("ADODB.Connection") 


其 中 ADODB.Connection 为 所 要 创建 的 ADO 连接 对 象 。 另 外 , 还 可 用 <OBJECT> 标 记 
创建 Connection 对 象 ， 例 如 : 


<OBJECT RUNAT=Server ID=cn PROGID="ADODB.Connection"></OBJECT> 


注意 : 
在 没有 明确 建立 Connection 对 象 的 情形 之 下 ，ADO 本 身 也 会 自行 创建 所 需 的 连接 对 


象 ， 但 这 样 将 无 法 利用 Conneciton 对 象 的 许多 功能 。 


1. 用 DSN 连接 数据 库 


一 旦 连接 对 象 创建 之 后 ， 接 下 来 就 可 以 通过 这 个 对 象 连 接 数 据 库 ， 这 时 直接 引用 
Connection 对 象 的 Open() 方 法 即 可 ， 其 语法 结构 如 下 : 


Connection 对 象 .Open 连接 字符 串 或 变量 
在 “连接 字符 串 或 变量 ”中 各 参数 的 意义 ， 如 表 9-7 所 示 。 


表 9-7 Connection 对 象 的 Open() 方 法 的 参数 


参数 说 明 
Dsn | ODBC 数据 源 名 称 
User | 数据库 登 录 账号 
Password | 数据 库 登 录 密码 


Driver 数据 库 的 类 型 (驱动 程序 ) 
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( 续 表 ) 
参数 说 有明 
Dbq 数据 库 的 物理 路 径 
Provider 数据 提供 者 
Data Source 数据 库 的 物理 路 径 
如 果 用 到 两 个 以 上 的 参数 , 中 间 用 分 号 隔 开 ， 顺 序 没有 关系 。 有 些 参 数 不 能 同时 使 用 ， 


比如 用 了 Driver 一 般 就 不 用 Provider， 用 了 Dsn 也 就 不 用 Driver 和 Provider， 如 下 例 所 示 : 


<%cn.Open "boolkmnetdsn',"sa",""9%6> 
也 可 以 先 设置 Connection String 属性 ， 再 调用 Open0 方 法 。 例 如 : 


<% 
cn.ConnectionString= "DSN=booknetdsn; " 
cn.Open 

%> 


或 者 直接 将 连接 串 作 为 参数 调用 : 


<o%cn.Open "DSN=bookmetdsn:UID=sa:PWD="%> 


注意 : 

创建 有 ODBC 数据 源 的 连接 方法 书写 简便 ， 也 不 容易 出 错 。 更 重要 的 是 ， 不 管 数据 库 
放 在 哪里 ， 只 要 对 数据 源 重新 进行 设置 即 可 ， 不 需要 更 改 程序 代码 。 如 果 要 移植 程序 到 另 
外 的 服务 器 上 ， 则 需要 重新 设置 数据 源 。 


2. 创建 基于 OLE DB 连接 字符 串 的 连接 


如 果 在 “ODBC 数据 源 管理 器 ”中 没有 建立 一 个 DSN， 那 么 ADO 便 使 用 提供 的 OLE 
DB 连接 字符 串 来 识别 OLE DB 提供 者 并 将 提供 者 指向 数据 源 ， 如 下 例 所 示 : 


<% 
cn.Open "Provider=SQLOLEDB.1:User ID=sa;Password=:"&_ 
"Tnitial Catalog=booknet:Data Source=zsh" 

%> 


其 中 ，Provider 指定 数据 提供 者 。Initial Catalog 指向 在 SQL Server 上 的 待 访问 的 数据 
。Data Source 指定 SQL Server 的 计算 机 名 或 卫 地 址 。 
对 于 Access 数据 库 也 可 以 采用 这 种 方式 进行 连接 ， 如 下 例 所 示 : 


更 


<%cn.Open "Provider=Microsoft.Jet.OLEDB.4.0:Data Source=e:\book.mdb"%> 
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3. 用 ODBC 连接 字符 串 连接 数据 库 
SQL 数据 库 也 可 以 不 设立 数据 源 , 要 用 到 Driver 和 Dbq( 数 据 库 的 物理 路 径 ) 两 个 参数 ， 


如 下 例 所 示 : 


<%cn.Open "Driver=;Database=booknet;Server=(local);UID=sa: PWD="%> 


其 中 ，Driver 指定 数据 源 驱动 程序 的 名 称 ，SQL Server 使 用 {SQL Server} 进 行 标识 。 


Database 指定 所 请 求 的 默认 数据 库 ，Server 指定 数据 源 服务 器 的 名 称 ， 设 为 locaD) 时 ， 表 示 
使 用 SQL Server 的 本 地 副本 。 


i 
注 有 最: 


创建 没有 ODBC 数据 源 连 接 的 应 用 程序 在 移植 到 别 的 服务 器 上 后 ， 就 可 以 立即 使 用 ， 
因此 ， 它 是 应 用 程序 中 比较 常用 的 与 数据 库 连 接 的 方法 。 


对 于 其 他 类 型 的 数据 库 ， 它 们 的 连接 方法 如 表 9-8 所 示 。 


表 9-8 ”ODBC 连接 字符 串 


数据 源 驱动 器 ODBC 连接 字符 串 
Microsoft Access Driver={Microsoft Access Driver(*.mdb)}:DBQ= 指 向 .mdb 文件 的 物理 路 径 
Oracle Driver={Microsoft ODBC for Oracle};SERVER= 指 向 服务 器 的 路 径 
Driver={Microsoft Excel Driver(*.xls)}:DBQ= 指 向 .xal 文件 的 物理 路 径 : 
Microsoft Excel 
DriverID=278 
Driver={Microsoft Excel Driver(*.xls)}:DBQ= 指 向 xal 文件 的 物理 路 径 ; 
Microsoft Excel 97 
DriverID=790 
ad Driver={Microsoft Paradox Driver(*.db)};:DBQ= 指 向 .db 文件 的 物理 路 径 : 
aradox 
DriverID=26 
文本 Driver={Microsoft Text Driver(*.txt:*.csv)};DefaultDir= 指 向 .txt 文件 的 物理 路 径 
Visual FoxPro( 带 有 | Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDb= 指 向 .dbe 
一 个 数据 库容 器 ) 文件 的 物理 路 径 
Visual FoxPro( 不 带 | Driver={Microsoft Visual FoxPro Driverj;SourceType=DBF:SourceDb= 指 向 .dbf 文 
数据 库容 器 ) 件 的 物理 路 径 


【 例 9-4】 以 本 章 【 例 9-1】 创建 的 数据 库 dbl mdb 和 【 例 9-3】 创建 的 系统 DSN 为 基 
础 ， 创 建 Connection 对 象 并 与 数据 库 建立 连接 ， 读 取 数 据 库 指定 表 中 的 第 一 条 记录 。 

(1) 双击 打开 【 例 9-1】 创 建 的 dbl 数据 库 ， 然 后 在 该 数据 库 的 数据 表 “ 表 1” 中 输入 
如 图 9-24 所 示 的 数据 。 

(2) 完成 数据 的 输入 后 选择 “文件 ”| “保存 ”命令 ， 将 数据 表 “ 表 1” 保 存 ， 然 后 关 


闭 Access 数据 库 。 


(3) 打开 记事 本 工具 ， 输 入 以 下 代码 : 
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<Center><H4> 数 据 表 " 表 1" 中 的 第 一 条 记录 </H4></Center> 


<Hr> 

<% 
Set conn= Server.CreateObject("ADODB.Connection") ”创建 Connection 对 象 conn 
conn.Open "netdsn","sa","" "使 用 DSN 建立 conn 与 数据 库 的 连接 
Set rs = Server.CreateObject ("ADODB.Recordset") "创建 Recordset 对 象 rs 
sql= "Select* from 表 1" 指定 一 个 SQL 查询 语句 
Is.Open sql,conn,1,1 Recordset 对 象 使 用 SQL 查询 语句 打开 数据 库 
Response. Write rs.Fields("C-Id")&"<Br>" ' 显 示 数 据 库 中 的 内 容 


Response. Write rs.Fields("C-Name")&"<Br>" 
Response. Write rs.Fields("C-address")&"<Br>" 
Response. Write rs.Fields("C-Tel")&"<Br>" 
Response. Write rs.Fields("C-Mail") 

%> 


(4) 将 以 上 代码 保存 为 Connection.asp 后 ,运行 Connection.asp 后 的 结果 如 图 9-25 所 示 。 


编 而 haoy1l9z168177/conr x | 十 
9 疹 范 | 四 区 站 "| 图 Gooc Q 


数据 表 “ 表 1" 中 的 第 一 条 记录 


"IWR 于 


ETISIITTTSTESE| 


图 9-24 在 数据 表 “ 表 1” 中 输入 数据 图 9-25 输出 结果 


【 例 9-5】 以 【 例 9-4】 在 数据 表 “ 表 1” 中 输入 的 数据 为 基础 ， 创 建 一 个 具有 多 种 与 
数据 库 连 接 方式 的 连接 文件 ， 并 在 ASP 程序 包含 它 以 显示 数据 库 中 表 的 内 容 。 
(1) 打开 笔记 本 工具 ， 创 建 一 个 名 称 为 Conn_ asp 的 文件 ， 代 码 如 下 所 示 : 


<% 

dim Conn 

Set conn= Server.CreateObject("ADODB.Connection") 
"使 用 DSN 与 数据 库 建 立 连接 的 第 一 种 方法 
conn.Open "netdsn","sa","" 

' 使 用 DSN 与 数据 库 建立 连接 的 第 二 种 方法 
‘conn.ConnectionString = "DSN=netdsn:UID=sa:PWD=;" 
'conn.Open 

' 使 用 DSN 与 数据 库 建立 连接 的 第 三 种 方法 
'conn.Open "dsn—netdsn;UID=sa: PWD=:" 

' 使 用 OLE DB 字符 串 与 数据 库 建立 连接 

'conn.Open "Provider=SQLOLEDB.1;User ID=sa:Password=:Initial Catalog=booknet:Data Source=local" 
"使 用 ODBC 字符 串 与 数据 库 建立 连接 
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dim strConn 

'strConn = "Driver={SQL Server} :Database=booknet:Server=D:\TEST:UID=sa;PWD=:;" 
‘conn.Open strConn 

%> 


(2) 将 Conn.asp 文件 保存 至 服务 器 主 目录 中 。 
(3) 创建 一 个 名 称 为 Connection2.asp 的 文件 ， 其 代码 如 下 所 示 : 


<Title> 数 据 库 连 接 </Title> 
<!--#include file="conn.asp" --> 
<Center><H4> 显 示 数 据 库 中 表 的 内 容 </H4></Center> 
<Hr> 
<% 
Set rs = Server.CreateObject ("ADODB.Recordset") 
sql= "Select* from 表 1" 
Ts.Open sqlLconn,1,1 
With Response 
if rs.EOF then 
Response.Write "现在 数据 库 为 空 !" 
else 
Response. Write " <TABLE BORDER=1 CELLSPACE=0 CELLPADDING=5>" &_ 
"<TR HEIGHT=12><TD WIDTH=50><B> 编号 </B></TD>"&_ 
"<TD WIDTH=100><B> 名 称 </B></TD>"&_ 
"<TD WIDTH=200><B> 地 址 </B></TD>"&_ 
"<TD WIDTH=80><B> 电话 </B></TD></TR>" 
endif 
do Until rs.EOF 
Response.Write "<TR HEIGHT=12><TD WIDTH=50>" & rs.Fields("C-Id")& "</TD>" &_ 
"<TD WIDTH=100>" & rs.Fields("C-Name") & "</TD>"&_ 
"<TD WIDTH=200>" & rs.Fields("C-address") & "</TD>"& 
"<TD WIDTH=80>" & rs.Fields("C-Tel") & "</TD></TR>" 
TS.MoveNext 
loop 
Response. Write "</TABLE>" 
End With 
rs.close 
Set rs = Nothing 
conn.close 
set conn=Nothing 
%> 


(4) 将 Connection2.asp 文件 保存 至 服务 器 主 目录 后 ， 运 行 该 文件 ， 结 果 如 图 9-26 所 示 。 
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窜 电 [本 192116 全 [7|| 国 600g a] Qe 
显示 数据 库 中 表 的 内 容 


编号 名称 地 址 
1 南京 用 户 南京 市 交 武 区 


北京 用 户 北京 市 海 演 区 


加 T 雪 | 全 前 吕 己 书 


图 9-26 ”Connection2.asp 运行 结果 


9.2.2 ”Connection 对 象 的 属性 


Connection 对 象 提供 了 丰富 的 属性 和 方法 ， 用 于 创建 、 保 存 和 设置 连接 信息 。 表 9-9 


中 列举 了 Connection 对 象 的 属性 及 其 属性 说 明 。 


表 9-9 ”Connection 对 象 的 属性 


属 性 说 阴 

Attributes 设置 Connection 对 象 控制 事务 处 理 时 的 行为 

CommandTimeout 设置 Execute() 方 法 的 最 长 执行 截止 时 间 

ConnectionString 指定 Connection 对 象 的 数据 库 连 接 信息 

ConnectionTimeout 设置 Open() 方 法 与 数据 库 连 接 的 执行 截止 时 间 

di 控制 光标 的 类 型 。 WE tee 还 是 使 用 服务 器 
端 adUseServeD) 游 标 引擎 。 默 认 值 是 adUseServer 
在 数据 提供 者 提供 多 个 数据 库 的 情况 下 ， 如 果 ConnectString 中 未 指定 数据 库 

DefaultDatabase 
名 称 ， 就 使 用 这 里 所 指定 的 名 称 

IsolationLevel 指定 和 其 他 并 发 事务 交互 时 的 行为 或 事务 

Mode 指定 对 Connection 的 读 写 权限 

二 如 果 ConnectionString 中 未 指定 OLE DB 数据 或 服务 提供 者 的 名 称 ， 就 使 用 这 
时 指定 的 名 称 。 默 认 值 是 MSDASQL(Microsof OLE DB Provider for ODBC) 

人 指定 连接 的 状态 。 若 是 0 或 adStateClosed， 则 连接 是 关闭 的 ; 车 是 1 或 
adStateOpen， 则 连接 是 打开 的 


下 面 的 代码 创建 了 一 个 Connection 对 象 ， 并 访问 其 Version 属性 : 


<% 


set conn=server.createObject("ADODB.Connection") 


%> 
<html> 
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<head> 
<title>Connection Verion</title> 
<body> 
<center> 
<font size=4 color=black> 
当前 使 用 的 ADO 版 本 为 <%=Conn.Version%> 
</font> 
</center> 
<body> 
</html> 


以 上 代码 运行 后 的 结果 ， 如 图 9-27 所 示 。 


了 comediogep-iigt 。。。 ele 
文 和 (月 (E) 格式 (O) 可 看 (V) 帮助 (H) 
名 Bt = | 而 Connection veric x ‖ + 
set conn=server. create0bject(“ADODB. Connection”) 
从 巴 久 窗 田 | 四" 图 cooQlsN* 
html> 
<head> i i 
comection Verion/title> 当前 使 用 的 AD0 版 本 为 6. 1 
上 
font size=dcolor=black> 
局 0 版 本 为 <4=Conn. Yersiong> 
汶 Rs 
S/oody> 
侈 于 
一 -一 ?加速 器 心 下 载 | 可 面 中 ly QQ 


图 9-27 CC neti 对 象 的 Version 属性 


下 面 将 对 表 9-9 中 常用 的 几 个 Connection 对 象 的 属性 进行 介绍 。 

1. Attributes 属性 

Attributes 属性 通过 两 个 常数 确定 当前 事务 失败 或 成 功 后 是 否 自动 开始 一 次 新 的 事务 。 
如 果 设 为 131072 或 ADO 常量 adXactCommitRetaining， 则 调用 CommitTrans() 方 法 时 自动 
启动 一 次 新 的 事务 ， 如 果 设 为 262144 或 ADO 常量 adXactAbortRetaining ， 则 调用 
RollbackTrans() 方 法 后 ， 自 动 开始 一 次 新 的 事务 。 如 果 要 达到 两 种 效果 ， 则 该 属性 应 设 为 
两 者 的 和 。 

2. CommandTimeout 属性 


CommandTimeout 属性 用 于 设置 Connection 对 象 的 Execute() 方 法 的 最 长 执行 时 间 ， 其 
默认 值 为 30 秒 。 如 果 超 过 时 间 未 完成 命令 ， 则 终止 命令 并 产生 一 个 错误 。 命 令 无 法 在 指定 
时 间 内 执行 完成 ， 可 能 是 因为 网 络 延 时 或 服务 器 负载 过 重 而 无 法 及 时 响应 造成 的 。 如 果 将 
该 属性 设 为 0， 则 无 限期 地 等 待 直到 执行 完成 。 如 下 例 将 把 CommandTimeout 的 最 长 时 间 
设置 为 60 秒 : 


<%db. CommandTimeout=60%> 
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3. ConnectionString 属性 


ConnectionString 属性 指定 数据 提供 者 或 服务 提供 者 打开 到 数据 源 的 连接 所 需 的 特定 
信息 。 除 了 可 以 使 用 Connection 对 象 的 Open() 方 法 打开 数据 库 外 ， 还 可 以 使 用 Connection 
对 象 的 ConnectionString 属性 打开 数据 库 ， 如 下 例 代码 所 示 : 

<% 

Dimdb 

Set db=Server.CreatObject("ADODB.Connection") 
db.ConnectionString="Dbq="&ServerMappath("dbl.mdb")&": 
Driver={Microsoft Access Driver(*.mdb)}" 

db.Open 


%> 

4. ConnectionTimeout 属性 

ConnectionTimeout 属性 用 于 确定 ADO 试图 与 一 个 数据 源 建 立 连接 时 的 最 大 连接 时 
间 ， 默认 值 是 15 秒 。 如 果 超 过 时 间 未 完成 连接 ， 则 终止 连接 并 产生 一 个 错误 。 如 果 将 该 属 
性 设 为 0， 则 一 直 等 待 直到 连接 成 功 为 止 。 如 下 例 将 把 ConnectionTimeout 的 默认 值 设置 为 
30 秒 : 


<%db.ConnectionTimeout=30%> 


5. Mode 属性 

Mode 属性 用 来 设置 连接 数据 库 的 权限 ， 利 用 该 属性 就 可 以 在 打开 数据 库 时 限制 数据 
库 的 连接 方式 ， 如 只 读 或 只 写 。 如 果 不 进 行 设置 ， 可 具有 对 数据 库 进 行 读 、 写 操作 的 权限 ， 
Mode 属性 的 取 值 及 其 相关 说 明 ， 如 表 9-10 所 示 。 


表 9-10 ”Mode 属性 的 取 值 及 其 相关 说 明 


MODE 属性 值 说 了 明 
adModeUnknown 未 指定 数据 源 的 连接 许可 权 ( 默 认 值 ) 
adModeRead 连接 是 只 读 的 
adModeWrite 连接 是 只 写 的 
adModeReadWrite 连接 是 可 读 写 的 
adModeShareDenyRead 拒绝 其 他 用 户 打开 到 数据 源 的 读 连接 


adModeShareDeny Write 拒绝 其 他 用 户 打开 到 数据 源 的 写 连接 
adModeShareExclusive 


adModeShareDenyNone 


其 他 用 户 不 能 以 任何 方式 打开 连接 
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9.2.3 Connection 对 象 的 方法 


Connection 对 象 的 方法 及 其 相关 说 明 ， 如 表 9-11 所 示 。 


表 9-11 Connection 对 象 的 方法 


方 ” 法 说 了 明 
Open0 建立 Connection 对 象 和 数据 库 之 间 的 连接 
Close0 关闭 Connection 对 象 和 数据 库 之 间 的 连接 
Execute() 执行 数据 库 查询 (可 以 执行 各 种 操作 ) 
Cancel0 取消 未 执行 完 的 异步 Execute0) 或 Open0 方 法 
BeginTrans() 开始 事务 处 理 
CommitTransO) 提交 一 个 事务 处 理 结果 
RollbackTrans|) 取消 一 个 事务 处 理 结果 


下 面 将 对 表 9-11 中 常用 的 几 个 Connection 对 象 的 方法 进行 介绍 。 
1. Open() 方 法 


Open() 方 法 用 来 建立 Connection 对 象 和 数据 库 之 间 的 连接 。 只 有 用 Open0 方 法 和 数据 
库 建立 连接 后 ， 才 可 以 继续 进行 各 种 操作 。 


2. Close() 方 法 


Close0 方 法 用 来 关闭 一 个 已 打开 的 Connection 对 象 及 其 相关 的 各 种 对 象 。 它 的 主要 作 
用 是 用 以 切断 Connection 对 象 与 数据 库 之 问 的 连接 通道 。 当 该 通道 被 关闭 后 ， 所 有 依赖 该 
Connection 对 象 的 Command 或 Recordset 对 象 也 将 立即 被 切断 关系 ， 方 法 如 下 : 
<% 
db.Close 


Set db=nothing 
%> 


注意 : 

db.Close 用 来 关闭 和 连接， 这样 可 以 释放 与 连接 有 关 的 系统 资源 。Connection 对 象 本 身 
并 没有 释放 ， 还 可 以 更 改 该 对 象 的 属性 并 重新 打开 。 如 果 要 从 内 存 中 完全 释放 Connection 
对 象 占 用 的 资源 ， 可 以 将 其 设 为 Nothing。 


3. Execute() 方 法 
Execute() 方 法 执行 指定 的 查询 、SQL 语句 、 存 储 过 程 或 数据 提供 者 指定 的 文本 ， 其 语 
法 结构 有 两 种 : 


Set Recordset 对 象 =Connection 对 象 . Execute(SQL 字符 串 ) 
Connection 对 象 Execute(SQL 字符 串 ) 
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注意 : 

当 对 数据 库 查 询 显示 记录 时 ， 常 采用 第 一 种 Execute0 执 行 方法 ， 它 将 返回 一 个 Recordset 
对 象 ; 而 执行 添加 、 删 除 和 更 新 操作 时 ， 常 采用 第 二 种 Execute0 执 行 方法 ， 它 不 返回 Recordset 
对 象 。 


在 不 返回 Recordset 对 象 时 ， 可 使 用 一 个 number 参数 来 返回 此 操作 影响 的 记录 条 数 ， 
如 下 例 所 示 : 


<% 
strSql="Delete From users Where name= 一 陈 功 " 


db.Execute strSqLnumber 
Response.Write " 共 删 除 "&number&" 条 记录 " 
%> 


4. BeginTrans() 方 法 
BeginTrans() 方 法 用 于 开始 一 个 事务 处 理 。 其 语法 结构 如 下 : 


Connection 对 象 . BeginTrans 


注意 : 

所 有 的 数据 库 操作 都 属于 事务 处 理 。 当 开始 一 个 事务 处 理 后 ,就 打开 Web 页 面 与 数据 库 的 
事务 处 理 通道 ， 此 时 可 以 从 Web 页 面 上 直接 更 新 数据 库 内 容 。 但 只 有 在 提交 事务 处 理 结果 后 ， 
数据 库 的 内 容 才 能 被 真正 更 新 ， 否 则 ， 所 有 的 操作 都 无 效 。 


9.3 Command 对 象 


Command 对 象 定义 将 对 数据 源 执 行 的 指定 命令 ， 这 些 命令 可 以 是 SQL 语句 、 表 名 、 
存储 过 程 或 其 他 数据 提供 者 支持 的 文本 格式 。Command 对 象 的 作用 相当 于 一 个 查询 , 使 用 
它 可 以 查询 数据 库 并 返回 记录 集 ， 也 可 执行 大 量 操作 或 处 理 数据 库 结构 。 

用 Command 对 象 执行 查询 的 方式 与 用 Connection、Recordset 对 象 执行 查询 的 方式 
一 样 ， 但 使 用 Command 对 象 可 以 改善 查询 。 用 Command 对 和 象 的 参数 查询 ， 可 先 在 数据 
源 上 准备 一 种 查询 方式 ， 然 后 用 不 同 的 值 来 重复 执行 查询 ， 以 避免 重复 发 出 类 似 的 SQL 
查询 语句 。 


9.3.1 创建 Command 对 象 


创建 Command 对 象 的 语法 结构 如 下 : 
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Set Command 对 象 =Server.CreatObject("ADODB.Command") 
然后 ， 可 用 ActiveConnection 属性 指定 要 利用 的 Connection 对 象 名 称 ， 语 法 如 下 : 


Command 对 象 .ActiveConnection=Connection 对 象 


1. 通过 Connection 对 象 创 建 Command 对 象 


每 个 Command 对 象 都 有 一 个 相关 联 的 Connection 对 象 。 在 创建 Command 对 象 之 前 ， 
一 般 应 该 先 建立 Connection 对 象 。 
通过 Connection 对 象 创建 Command 对 象 ， 如 下 例 所 示 : 


<% 
Dim conn,cmd 
' 创 建 Connection 对 象 conn 
Set conn= Server.CreateObject("ADODB.Connection") 
"使 用 DSN 建立 conn 与 数据 库 的 连接 
conn.Open "booknetdsn","sa","" 
' 创 建 Command 对 象 cmd 
Set cmd= Server.CreateObject("ADODB.Command") 
' 将 Connection 对 象 conn 指定 给 Command 对 象 cmd 
cmd.ActiveConnection=conn 

%> 


2. 直接 创建 Command 对 象 


对 于 Command 对 象 ， 也 可 以 不 先 创 建 Connection 对 象 就 直接 使 用 ， 只 需要 设置 
Command 对 象 的 ActiveConnection 属性 为 一 个 连接 字符 串 即 可 。 此 时 ，ADO 会 自行 创建 
一 个 隐 含 的 Connection 对 象 ， 但 并 不 给 它 分 配对 象 变量 。 


注意 : 

创建 Command 对 象 的 过 程 中 ， 如 果 没 有 把 ActiveConnection 属性 设置 为 一 个 明确 的 
Connection 对 象 ， 即 使 使 用 相同 的 连接 字符 囊 ，ADO 也 会 为 每 个 Command 对 象 创建 一 个 

不 通过 Connection 对 象 直接 创建 Command 对 象 ， 如 下 例 所 示 : 


<% 
Dim cmd 
Set cmd= Server.CreateObject("ADODB.Command ") 
cmd. ActiveConnection= "addr" 

%> 
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9.3.2 ” Command 对 象 的 属性 


Command 对 象 的 属性 与 方法 相对 较 少 ， 其 属性 及 说 明 如 表 9-12 所 示 。 


表 9-12 ” Command 对象 的 属性 


属 性 说 了 明 
ActiveConnection 指定 Connection 的 连接 对 象 
CommandText 指定 数据 库 的 查询 信息 
CommandType 指定 数据 查询 信息 的 类 型 
CommandTimeout 指定 Command 对 象 的 Execute0 方 法 的 最 长 执行 时 间 
Prepared 指定 数据 查询 信息 是 否 要 先行 编译 、 存 储 


下 面 对 表 9-12 中 常用 的 几 个 Command 对 象 的 属性 进行 介绍 。 
1. ActiveConnection 属性 


ActiveConnection 属性 设置 或 返回 Command 对 象 的 连接 信息 ， 该 属性 可 以 是 一 个 
Connection 对 象 或 连接 字符 串 。 其 语法 结构 为 : 


Command 对 象 .ActiveConnection=Connection 对 象 
如 果 没 有 明确 建立 Connection 对 象 ， 则 其 语法 结构 为 : 


Command 对 象 .ActiveConnection= 数 据 源 名 称 字 符 串 


2. CommandText 属性 

CommandText 属性 设置 或 返回 对 数据 源 的 命令 串 ， 该 命令 串 可 以 是 SQL 语句 、 表 、 
存储 过 程 或 数据 提供 者 支持 的 任何 特殊 有 效 的 命令 文本 。 其 语法 结构 如 下 : 

Command 对 象 .CommandText=SQL 语句 或 数据 表 名 或 查询 名 或 存储 过 程 名 


注意 : 

如 果 为 CommandText 属性 指定 的 是 数据 表 名 ， 则 将 查询 和 返回 整个 数据 表 中 的 所 
有 内 容 。 

3. CommandType 属性 

CommandType 属性 用 于 指定 Command 对 象 中 数据 查询 信息 的 类 型 ， 


| 


语法 结构 如 下 : 


Command 对 象 .CommandType= 类 型 值 


CommandType 属性 的 取 值 及 其 相关 说 明 ， 如 表 9-13 所 示 。 
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表 9-13 CommandType 属性 的 取 值 及 其 相关 说 明 


CommandType 属性 | 整 数 值 说 明 
AdCmdText 1 SQL 命令 类 型 
AdCmdTable 2 数据 表 名 
AdCmdStoredProc 4 查询 名 或 存储 过 程 名 
AdCmdUnknown 8 未 知 的 。CommandText 参数 类 型 无 法 确定 
AdExecuteNoRecords 128 不 返回 记录 集 的 命令 或 存储 过 程 
AdCmdFile 256 已 存在 的 记录 集 的 文件 名 
AdCmdTableDirect 512 CommandText 是 一 个 表 ， 在 查询 中 返回 该 表 的 全 部 行 和 列 


为 Command 对 象 指定 CommandType 值 ， 如 下 例 所 示 : 


<% 


Set cmd= Server.CreateObject("ADODB.Command ") 

cmd. ActiveConnection=conn 

cmd.CommandType=1 

cmd.CommandText="Select * From users" 

cmd.CommandType=2 

cmd.CommandTex 人 "users 
%> 


nm 


注意 : 

在 未 指定 CommandType 值 的 情况 下 ， 系 统 会 自行 判定 查询 信息 的 类 型 。 指 定 
CommandType 值 可 以 节省 系统 判定 过 程 的 时 间 ， 加 快 系统 运行 的 速度 。 

4. CommandTimeout 属性 


CommandTimeout 属性 设置 执行 一 个 Command 对 象 时 的 等 待 时 间 ， 默 认 值 是 30 秒 。 
如 果 在 这 个 时 间 内 Command 对 象 没有 执行 完 ， 则 终止 命令 并 产生 一 个 错误 。 


5. Prepared 属性 


Prepared 属性 指出 在 调用 Command 对 象 的 Execute() 方 法 时 ， 是 否 将 查询 的 编译 结果 
存储 下 来 。 如 果 将 该 属性 设 为 True， 则 会 把 查询 结果 编译 并 保存 下 来 ， 这 样 将 影响 第 一 次 
的 查询 速度 ， 但 一 旦 数据 提供 者 编译 了 Command 对 象 ， 数 据 提供 者 在 以 后 的 查询 中 将 使 
用 编译 后 的 版 本 ， 从 而 极 大 地 提高 速度 。 其 语法 结构 如 下 : 


Command 对 象 Prepared= 布 尔 值 


9.3.3 Command 对 象 的 方法 


Command 对 象 的 方法 及 其 相关 说 明 ， 如 表 9-14 所 示 。 
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表 9-14 Command 对象 的 方法 


Execute() 执行 数据 库 查 询 (可 以 执行 各 种 操作 ) 
CreateParameter() | 用 来 创建 一 个 Parameter 子 对 象 
Cancel() 取消 一 个 未 确定 的 异步 执行 的 Execute0 方 法 


使 用 Command 对 象 有 几 个 重要 的 步骤 , 即 创建 Command 对 象 、 指 定 对 象 数据 库 连 接 、 
指定 SQL 指令 和 引用 Execute() 方 法 。 
e@ 创建 Command 对 象 + 和 连接 数据 库 一 样 ， 运 用 Command 对 象 之 前 首先 必须 引用 
CreateObject 对 象 ， 创 建 其 对 象 实体 ， 设 定 对 象 识别 名 称 。 如 下 例 所 示 ; 


Dim objCommand 
Set objCommand =Server.CreateObject("ADODB.Command") 


注意 : 
其 中 ，objCommand 为 所 要 创建 的 指令 对 象 名 称 ， 应 用 程序 在 对 象 实体 创建 之 后 ， 以 
此 作为 名 称 识 别 。 

e 指定 对 象 数 据 库 连 接 : Command 对 象 以 特定 连接 为 基础 ， 针 对 连接 的 数据 库 进 行 
存 取 操 作 ， 应 用 程序 必须 设置 Command 对 象 所 要 存 取 的 数据 库 连 接 对 象 。 

e SQL 指令 : Command 对 象 本 身 并 不 具备 数据 变动 的 功能 ， 其 主要 功能 在 于 将 指定 
的 SQL 语句 传送 至 数据 库 , 由 数据 库 根 据 传送 过 来 的 SQL 语句 进行 数据 存 取 操 作 ， 
ASP 网 页 则 负责 将 特定 的 SQL 语句 指定 给 Command 对 象 。 

e@ 引用 Execute0 方 法 当 Command 对 象 设 定 完 成 之 后 ， 最 后 只 需要 引用 Execute() 
方法 ， 即 可 将 指定 的 SQL 通过 连接 对 象 传送 至 服务 器 端 数据 库 做 处 理 。 


9.3.4 ”参数 查询 


如 果 要 创建 一 个 使 用 多 次 但 每 次 使 用 不 同 值 的 查询 ， 那 么 应 在 查询 中 使 用 参数 ， 即 创 
建 参 数 查 询 。 参 数 是 查询 时 所 提供 值 的 占 位 符 ， 它 将 WHERE 子 句 中 固定 值 用 “?” 代 和 替 ， 
称 作 占 位 符号 。 这 样 就 避免 了 在 每 次 查询 中 重新 建立 SQL 查询 语句 。 

一 个 Parameter 对 象 就 是 一 个 参数 ，Parameters 集合 就 是 若干 个 参数 的 集合 。Parameter 
对 象 和 Parameters 集合 都 有 各 自 的 属性 和 方法 。 


1. Parameters 集合 的 属性 和 方法 
Command 对 象 包含 一 个 Parameters 集合 。Parameters 集合 包含 参数 化 的 Command 对 


象 的 所 有 参数 ， 每 个 参数 信息 由 Parameter 对象 表示 。Parameters 集合 的 属性 和 方法 及 其 相 
关 说 明 ， 如 表 9-15 所 示 。 
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表 9-15 ”Parameters 集合 的 属性 和 方法 
名 称 说 明 

Count 属性 | 返回 Command 对 象 的 参数 个 数 
Append() 方 法 | 增加 一 个 Parameter 对 象 到 Parmeters 集合 中 
Delete0 方 法 从 Parameters 集合 中 删除 一 个 Parameter 对 象 
Item0 方 法 取得 集合 内 的 某 个 对 象 
Refresh0 方 法 重新 整理 Parameters 数据 集合 


2. 创建 Parameter 对 象 


要 执行 一 个 参数 查询 ， 必 须 先 调用 CreateParameter() 方 法 创建 一 个 Parameter 对 象 ， 然 
后 调用 Append() 方 法 将 其 添加 到 Parameters 集合 


象 的 语法 结构 如 下 : 


Set Parameter 对 象 =Command 对 象 .CreateParameter(Name,Type,Direction,Size,Value) 
其 中 Name 表示 参数 名 ，Type 表示 参数 类 型 ，Direction 表示 参数 的 数据 流向 ，Size 表 


示 字 符 参 数 串 长 度 ，Value 表示 参数 的 值 。 


创建 Parameter 对 象 的 过 程 中 ， 参 数 的 类 型 由 Type 来 定义 ， 它 的 取 值 及 其 相关 说 明 如 


表 9-16 所 示 。 


表 9-16 Type 的 取 值 范围 


ph， 再 将 值 赋 给 参数 。 创 建 Parameter 对 


常 量 值 说 ”了 明 
AdBigInt 20 八 位 符号 整数 
AdBina 128 - 进 制 值 
AdBoolean 11 布尔 值 
AdBSTR 8 以 空 值 结束 的 Unicode 字符 串 
AdChar 129 字符 串 值 
AdCurrenc: 6 货币 值 ，8 字 节 长 
AdDate 7 日 期 值 
AdDBDate 133 日 期 值 ， 格 式 是 yyyymmdd 
AdBDTime 134 时 间 值 ， 格 式 是 hhmmss 
AdDBTimeStamp 135 日 期 时 间 值 ， 格 式 是 yyyymmddhhmmss 
AdDecimal 14 有 固定 精度 的 数值 
AdDouble 5 双 精 度 浮 点 值 
AdEmpty 0 无 指定 值 
AdError 10 32 位 错误 码 
AdGUID 72 全 局 唯一 指示 符 
AdIDispatch 9 指向 OLE 对 象 的 接口 指针 
AdInteger 3 四 位 符号 整数 
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( 续 表 ) 
常 量 值 说 了 明 
AdIUnknown 13 指向 OLE 对 象 的 TUnknown 接口 指针 
AdLongarBinary 205 长 整 型 二 进 制 ( 仅 用 于 Parameter 对 象 ) 
AdLongarChar 201 长 字符 串 值 ( 仅 用 于 Parameter 对 象 ) 
AdLongarWChar 203 以 空 值 结束 的 长 字符 串 值 ( 仅 用 于 Parameter 对 象 ) 
AdNumeric 131 有 固定 精度 的 数值 
AdSingle 4 单 精度 浮 点 值 
AdSmallInt 2 二 位 符号 整数 
AdTinyInt 16 -位 符号 整数 
AdUnsignedBigInt 21 八 位 无 符号 整数 
AdUnsignedInt 19 四 位 无 符号 整数 
AdUnsignedSmallInt 18 二 位 无 符号 整数 
AdUnsignedTinyInt 17 -位 无 符号 整数 
AdUserDefined 132 用 户 定义 的 变量 
AdvarBina 204 二 进 制 值 ( 仅 用 于 Parameter 对 象 ) 
AdvarChar 200 字符 串 值 ( 仅 用 于 Parameter 对 象 ) 
AdVariant 和 OLE 的 Variant 类 型 
AdVarWChar 202 以 空 值 结束 的 Unicode 字符 串 ( 仅 用 于 Parameter 对 象 ) 
AdWChar 130 以 空 值 结束 的 Unicode 字符 串 


创建 Parameter 对 象 的 过 程 中 ， 参 数 的 数据 流向 由 Direction 定义 ， 它 的 取 值 及 其 相关 
说 明 ， 如 表 9-17 所 示 。 


表 9-17 Direction 的 取 值 范围 


说 了 明 


AdParamInput 输入 参数 ， 即 传送 数据 给 一 个 存储 过 程 
AdParamOuput 输出 参数 ， 即 从 得 到 Command 对 象 执行 后 的 输入 值 


输入 和 输出 参数 ， 即 传送 并 接收 数据 
返回 值 ， 用 来 读 取 从 存储 过 程 返回 的 状态 值 


3. Parameter 对 象 的 属性 


一 个 Parameter 对 象 表示 一 个 基于 带 参数 的 查询 或 存储 进程 的 Command 对 象 相关 的 参 
数 。Parameter 对 象 的 一 些 属性 是 从 传递 给 Command 对 象 CreateParameter() 方 法 的 参数 那 
里 继承 而 来 的 。Parameter 对 象 的 属性 及 其 相关 说 明 ， 如 表 9-18 所 示 。 


表 9-18 Command 对 象 的 CreateParameter() 方 法 的 参数 意义 
参 数 说 有明 


Name 参数 名 称 
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( 续 表 ) 
参数 说 明 


Type 参数 类 型 


Direction 参数 方向 ， 传 入 还 是 传 出 
Size 参数 大 小 ， 指 定 最 长 字 节 ， 可 以 省 略 


Value 参数 值 


Attributes 指定 该 参数 的 数值 性 质 


其 中 ，Attributes 参数 用 来 指定 参数 值 的 性 质 ， 其 取 值 及 其 相关 说 明 如 表 9-19 所 示 。 


表 9-19 ”Attributes 参数 的 取 值 范围 


常 量 说 ”了 明 
AdParamLong 允许 有 相当 大 的 数值 


AdParamNullable 允许 NULL 值 


允许 数值 有 正 负 符号 


AdParamSigned 
4. Parameter 对 象 的 方法 
Parameter 对 象 只 有 一 个 AppendChunk0 方 法 ， 用 来 处 理 传递 给 一 个 参数 的 长 文本 或 二 进 
制 数 据 。 它 允许 把 一 个 长 文本 或 二 进 制 信息 加 入 到 Parameter 对 象 的 末尾 ， 其 语法 结构 如 下 : 
Parameter 对 象 .AppendChunk( 长 文本 或 二 进 制 数据 ) 
注意 : 
在 使 用 该 方法 前 ，Parameter 对 象 的 Attributes 参数 必须 设置 为 adFLDLong， 这 样 
Parameter 对 象 能 够 接受 该 方法 加 入 的 长 文本 或 二 进 制 数据 。 当 多 次 调用 该 方法 时 ， 新 数据 
就 可 以 连续 性 地 加 入 到 现存 的 参数 中 。 


9.4 习 题 


1. 数据 库 本 身 由 多 个 数据 表 所 组 成 ， 表 中 每 一 行 代表 一 个 ， 每 一 列 代表 
三 (全 5 

2. 索引 本 身 根 据 其 功用 可 以 分 为 两 种 : 和 

3. 指定 SELECT 语句 查询 及 与 查询 相关 的 表 或 视图 。 


4. 建立 Connection 对 象 是 采用 Server 对 象 的 方法 进行 的 。 
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9.4.2 选择 题 


1. 目前 常用 的 数据 库 管理 系统 属于 ( 。 )。 
A. 关系 型 B. 层次 型 C. 网 状 型 D. 结构 型 
2. 在 ODBC 数据 源 管理 器 中 ，DSN 还 分 为 用 户 DSN、 系 统 DSN 和 文件 DSN 三 种 。 
用 户 可 以 通过 ODBC 数据 源 管理 器 创建 (。”) 类 型 的 DSN。 


A.1 种 B.2 种 C.3 种 D. 以 上 全 错 
3. 在 开发 基于 数据 库 的 Web 应 用 程序 时 ， 构 建 (。”) 都 是 可 以 的 

A. 系统 DSN 和 文件 DSN B. 文件 DSN 和 用 户 DSN 

C. 系统 DSN 和 用 户 DSN D. 以 上 全 错 


9.4.3 ”问答 题 


. ADO 包含 哪些 对 象 和 数据 集合 ， 它 们 之 间 存 在 怎样 的 关系 ? 
. ODBC 的 主要 功能 是 什么 ? 

. OLE DB 有 哪 两 层 结构 ， 它 有 什么 优势 ? 

. 在 ADO 模型 中 有 哪些 对 象 ? 

. 简 述 Command 对 象 和 Connection 对 象 之 间 的 关系 。 

. 在 程序 执行 过 程 中 ， 如 何 获取 到 错误 的 描述 信息 ? 

. 连接 Access 或 者 SQL Server 数据 库 有 哪儿 种 方法 ? 


让 wmPD 一 


9.4.4 ”操作 题 


1. 在 Access 2013 中 创建 一 个 名 称 为 CDB.mdb 的 数据 库 , 并 在 该 数据 库 中 设置 一 个 如 
表 9-20 所 示 的 数据 表 Custom。 


表 9-20 数据 表 Custom 


| 


2. 以 上 题 创 建 的 数据 库 为 基础 ， 参 考 本 章 练习 所 介绍 的 方法 ， 创 建 数据 库 连 接 。 
3. 在 ASP 页 面 中 显示 数据 库 的 全 部 信息 ， 并 可 以 添加 、 修 改 和 删除 记录 。 
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教学 目标 
通过 对 本 章 的 学 习 ， 读 者 应 掌握 Recordset 对 象 的 各 种 属性 和 方法 ， 并 能 够 利用 
Recordset 对 象 对 数据 库 进行 各 种 操作 。 


@ 用 Recordset 对 象 处 理 结果 
@ Recordset 的 应 用 
@ Fields 集合 和 Field 对 象 


Recordset 对 象 是 一 个 记录 的 集合 ， 是 按 字 段 (或 列 和 记录 (或 行 ) 的 形式 构成 的 二 维 表 。 每 
个 Recordset 对 象 表示 表 中 的 记录 或 运行 一 次 查询 所 得 到 的 结果 。 使 用 Recordset 对 象 , 可 以 在 
记录 一 级 上 对 数据 库 中 的 数据 进行 各 种 操作 ， 如 增加 、 删 除 和 定位 记录 以 及 更 新 数据 库 等 。 


10.1 Recordset 对 象 概述 


对 于 检索 数据 、 检 查 结果 、 更 改 数据 库 ，ADO 提供 了 Recordset 对 象 。Recordset 对 象 
是 一 个 记录 的 集合 ， 用 于 检索 和 更 新 数据 库 。 数 据 库 应 用 程序 通常 用 Connection 对 象 建立 
连接 并 用 Recordset 对 象 处 理 返 回 的 数据 。 

尽管 Connection 对 象 简化 了 连接 数据 库 和 查询 任务 ,但 Connection 对 象 仍 有 许多 不 足 : 
检索 和 显示 数据 库 信息 的 Connection 对 象 不 能 用 于 创建 脚本 ; 用 户 必须 确切 地 知道 要 对 数 
据 库 做 出 的 更 改 ， 然 后 才能 使 用 查询 实现 更 改 。 


10.1.1 认识 Recordset 对 象 


Recordset 对 象 可 以 创建 一 个 记录 集合 ， 并 将 所 需 的 记录 从 表 中 取出 。 同 时 ， 使 用 虚拟 表格 
的 方式 ， 每 一 行为 一 条 记录 ， 每 一 列 则 代表 一 个 字段 ， 提 供给 ASP 程序 处 理 ， 如 图 10-1 所 示 。 


分 类 编号 产品 代号 产品 名 称 | 产品 简 述 
55 0001000001 LA-Gear Mouse PAD | MODEL No.TMP-_ 0312 
55 0001000002 LA-Gear Mouse PAD 1 | MODEL No.TMP-_ 04 


图 10-1 Recordset 对 象 的 记录 指针 
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e@ ， Recordset 中 的 记录 指针 具有 游标 类 型 (CursorType)。 不 同 的 游标 类 型 可 对 记录 集 进 
行 不 同 的 操作 ， 默 认 值 为 0， 代表 记录 指针 只 能 向 前 移动 记录 集 ; 也 可 定义 成 其 他 
值 ， 允 许 记录 指针 在 记录 集中 上 下 移动 。 

e ”数据 源 本 身 具 有 锁定 的 能 力 。 具 有 这 项 功能 最 主要 的 目的 在 于 避免 两 个 SQL 查询 
操作 同时 写 同一 条 记录 。 

e@ 当前 记录 指针 的 位 置 。Recordset 的 MoveFirst0 方 法 可 以 将 记录 指针 移 到 第 一 条 记 
录 的 位 置 ， MoveLast0 方 法 可 将 记录 指针 移 到 记录 集 的 最 后 一 条 ; MoveNext() 方 法 
可 使 指针 移 到 下 一 条 ; MovePrevious0 方 法 则 是 移 到 上 一 条 。 


10.1.2 ”Recordset 对 象 的 工作 流程 


Recordset 对 象 在 使 用 前 同样 需要 使 用 Connection 对 象 建立 数据 库 的 连接 ， 其 步骤 如 下 。 
1. 创建 Connection 对 象 ， 打 开 数 据 源 


创建 一 个 Connection 对 象 ， 并 保存 在 OBJConn 变量 中 ， 然 后 打开 数据 源 ， 程 序 代码 
如 下 : 


Set OBJConn = Server.CreateObject("ADODB.Connection") 
OBJConn.Open strDSN ' 打开 数据 源 


2. 创建 Recordset 对 象 
在 取得 与 数据 库 的 连接 之 后 ， 接 着 即 可 创建 Recordset 对 象 ， 其 程序 代码 如 下 : 


Set Rs = OBJConn Execute(SQLstr) 


3. 打开 Recordset 对 象 取 得 数据 
在 Recordset 对 象 创建 完成 之 后 ， 即 可 打开 Recordset 对 象 的 内 容 。 此 Recordset 对 象 
的 内 容 可 以 是 表 、SQL 查询 语句 ， 如 果 是 表 ， 其 命令 有 如 下 两 种 方式 : 


Rs.Open "产品 基本 信息 ", OBJConn, adOpenStatic, adLockReadOnly, adCmdTable 

Set Rs = OBJConn.Execute(CommandText, RecordsAffected, Options) 

上 述 程序 代码 使 用 Recordset 对 象 Rs 的 Open0 方 法 打开 “产品 基本 信息 ” 表 , 第 2 个 
参数 为 Connection 对 象 OBJConn， 其 后 3 个 参数 为 定义 在 文件 adovbs.inc 中 的 常数 ， 定 义 
Recordset 对 象 的 存 取 方 式 。 

4. 处 理 Recordset 对 象 的 记录 


在 打开 Recordset 对 象 的 记录 集合 之 后 ， 即 可 开始 使 用 Recordset 对 象 的 属性 及 方法 进 
行 表 的 操作 或 取得 当前 的 状态 。 例 如 取得 Recordset 对 象 的 状态 属性 State， 代 码 如 下 : 
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IfRs.State = 1 Then 
Response Write("<b>Rs 对 象 目前 处 于 打开 的 状态 </b><br>") 


Else 


Response.Write("<b>Rs 对 象 目前 处 于 关闭 的 状态 </b><br>") 


EndIf 


注意 : 


上 述 程序 代码 是 利用 正 :.Then…Else 语 句 的 方式 检查 状态 属性 State, 查看 当前 Recordset 
对 象 的 打开 状态 。 如 果 返 回 值 为 1， 代表 状态 已 打开 ; 返回 值 为 0， 则 代表 状态 已 关闭 。 


5. 关闭 Recordset 对 象 
关闭 Recordset 对 象 的 代码 如 下 : 


Rs.Close 


Set Rs = Nothing 


在 执行 上 述 程序 代码 之 后 ， 将 会 关闭 Recordset 对 象 ， 并 且 由 Set Rs = Nothing 释放 


Recordset 对 象 。 


6. 关闭 与 数据 库 的 连接 
要 关闭 数据 库 连 接 ， 可 使 用 Connection 对 象 的 Close 方法 ， 代 码 如 下 : 


OBJConn.Close 


set OBJConn = Nothing 


10.1.3 ”Recordset 对 象 的 属性 


Recordset 对 象 的 属性 及 其 相关 说 明 ， 如 表 10-1 所 示 。 


表 10-1 Recordset 对 象 的 属性 


属 性 说 了 明 

设置 或 返回 当前 记录 所 在 的 页 号 。 用 该 属性 可 使 当前 记录 跳 到 指定 的 页 ， 如 : <% 
AbsolutePage 

TS.AbsolutePage 三 6 %> 

本 设置 或 返回 当前 记录 在 记录 集中 的 位 置 。 用 该 属性 可 使 某 一 记录 成 为 当前 记录 ， 

AbsolutePosition 

如 : <% rs.AbsolutePosition = 10 %> 
和 定义 Recordset 对 象 与 数据 库 的 连接 。 该 属性 或 者 指向 一 个 当前 打开 的 Connection 

”| 对象, 或 者 定义 一 个 新 的 连接 

BOF 若 记录 指针 位 于 第 一 条 记录 之 前 ， 则 为 True， 否 则 为 False 
BookMark 设置 或 返回 一 个 记录 的 书签 ， 如 mark=rs.BookMark 或 rs.BookMark=mark 
CacheSize 设置 本 地 机 可 以 缓存 的 记录 数 ， 默 认 值 为 1 


CursorType 


设置 记录 集 所 用 的 游标 类 型 ， 详 见 表 10-3 
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( 续 表 ) 
属性 说 了 明 
Re 设置 游标 位 置 ， 若 设 成 1 或 adUseClient， 使 用 客户 端 提 供 的 本 地 游标 ， 若 设 成 2 
或 adUseServer( 默 认 值 )， 则 使 用 数据 提供 者 的 游标 
指出 当前 记录 的 编辑 状态 ， 取 值 如 下 。 
4 0 或 常量 adEditNone: 在 当前 处 理 过 程 中 没有 编辑 操作 。 
oa 4 1 或 常量 adEditInProgress: 当前 记录 已 被 更 改 ， 但 尚未 保存 到 数据 库 。 
4 2 或 常量 adEditAdd: 当前 缓冲 区 内 数据 是 用 AddNew0 方 法 写 入 的 新 记录 , 但 
尚未 保存 到 数据 库 。 
4 3 或 常量 adEditDelete: 当前 记录 已 被 删除 
EOF 记录 指针 位 于 最 后 一 条 记录 之 后 ， 为 True， 否则 为 False 
Filter 定义 筛选 器 来 获取 特定 的 记录 ， 如 rs.Filter="AuthorID">1000 
LockType 设置 记录 集 所 用 的 锁定 类 型 ， 详 见 表 10-5 
确定 一 次 所 能 返回 的 最 大 记录 数 ， 默 认 值 为 0， 表 示 返 回 全 部 请 求 的 记录 。 在 记 
Ce 录 集 关闭 时 该 属性 可 读 写 ， 在 打开 记录 集 后 只 读 
PageCount 记录 集 所 包含 的 页 数 ， 每 页 记录 数 由 PageSize 决定 
PageSize 指定 一 页 中 包含 的 记录 数 
RecordCount 记录 集 所 包含 的 记录 条 数 
Sort 7 式 
Source 设置 记录 集 数据 来 源 ， 可 以 是 Command 对 象 、SQL 语句 、 表 名 或 存储 过 程 
确定 记录 集 的 打开 /关闭 状态 ， 取 值 如 下 。 
4 0 或 adStateClosed: 表示 记录 集 已 关闭 。 
4 1 或 adStateOpen: 表示 记录 集 已 打开 。 
4 2 或 adStateConnecting: 表示 正在 连接 。 
4 3 或 adStateExecuting: 表示 记录 集 正 在 执行 一 个 命令 。 
4_ 4 或 adStateFetching: 表示 记录 集 正在 获取 数据 
Status 当前 记录 所 处 的 状态 ， 详 见 表 10-1 


10.1.4 Recordset 对 象 的 方法 


Recordset 对 象 的 方法 及 其 相关 说 明 ， 如 表 10-2 所 示 。 


表 10-2 Recordset 对 象 的 方法 
说 明 


增加 一 条 记录 
取消 一 个 批 处 理 更 新 


CancelUpdateO) 


在 更 新 前 取消 对 当前 的 所 有 更 改 
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( 续 表 ) 
方法 说 明 
Clone0 建立 记录 集 的 一 个 副本 
Delete0 删除 一 条 或 多 条 记录 
GetRows0 从 记录 集中 得 到 多 条 记录 并 存 入 数组 中 
Move0 将 记录 指针 移 到 指定 的 位 置 
MoveFirst0 将 记录 指针 移 到 第 一 条 记录 处 
MoveLast0 将 记录 指针 移 到 最 后 一 条 记录 处 
MoveNext(0 将 记录 指针 移 到 下 一 条 记录 处 
MovePrevious() 将 记录 指针 移 到 前 一 条 记录 处 
NextRecordSetO 从 能 产生 多 个 结果 的 命令 中 返回 下 一 个 记录 集 
open0 打开 记录 集 
Requery0 重新 执行 查询 来 刷新 记录 集 
Resynec 刷新 服务 器 内 的 同步 数据 
Save0 将 记录 集 保存 到 一 个 文件 中 
Supports0 判断 记录 集 是 否 支 持 指定 的 功能 
Update0 将 修改 结果 保存 到 数据 库 中 
UpdateBatchO 将 缓冲 区 内 批量 修改 结果 保存 到 数据 库 中 
【 例 10-1】 创建 一 个 搜索 页 面 ， 当 用 户 在 表单 中 输入 出 版 社 名 称 并 单 击 “ 提 交 ” 按 钮 后 ， 


可 返回 数据 库 中 该 出 版 社 所 有 图 书 的 详细 信息 , 程序 运行 效果 如 图 10-2 和 图 10-3 所 示 ( 在 操作 
本 实例 前 ， 用 户 应 结合 本 书 第 9 章 所 介绍 的 内 容 创 建 搜索 页 面 的 数据 库 并 输入 数据 )。 
(1) 创建 一 个 名 称 为 “出 版 社 查询 .asp” 的 网 页 ， 代 码 如 下 所 示 : 


<%(@ Language=VBScript %> 
<% Response.Buffer = True %> 
<HIML> 
<TITLE> 出 版 社 查 询 </TITLE> 
<HEAD> 
<SCRIPT Language="VBScript" RUNAT="Server"> 
Sub rs_Display0 
dim strConnstrSQL.strWriter 
strPress = Request.Form("PressName") 
1f strPress—"" then 
' 创 建 Connection 对 象 conn 
Set conn=Server.CreateObject("ADODB.Connection") 
' 使 用 DSN 建立 conn 与 数据 库 的 连接 
strConn="Driver={SQL Server} :Database=booknet:Server=ZHANGSHIHUA\TEST:UID=sa; 
PWD=:" 
conn.Open strConn 
strSQL = "SELECT * FROM Books" 
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strSQL = strSQL & " WHERE Press LIKE '%" & Trim(strPress) & "%" 
Set rs = Server.CreateObject("ADODB.Recordset") 
ITS.Open strSQL.conn 
With Response 
ifrs.EOF then 
-Wiite "没有 查询 到 相关 的 记录 ! " 
else 
Write " <TABLE BORDER=1 CELLSPACE=0 CELLPADDING=S>"& 
"<TR HEIGHT=12><TD WIDTH=70><B> 图 书 编号 </B></TD>"& 
"<TD WIDTH=300><B> 书 名 </B></TD>"& 
"<TD WIDTH=150><B> 作者 </B></TD>"& 
"<TD WIDTH=40><B> 价格 </B></TD></TR>" 
endif 
do Until rs.EOF 
.Write "<TR HEIGHT=12><TD WIDTH=70>" & rs("BookID") & "</TD>"&_ 
"<TD WIDTH=300>" & rs("BookName") & "</TD>"& 
"<TD WIDTH=150>" & rs("Writer") & "</TD>" &_ 
"<TD WIDTH=40>" & rs("Price") & "</TD></TR>" 
Is.MoveNext 
loop 
.Write "</TABLE>" 
End With 
Is.Close 
conn.Close 
endif 
end sub 
</SCRIPT> 
<body> 
<Center><H2> 按 出 版 社 名 称 查 询 </H2><HR> 
<FORM NAME="thisForm" METHOD=POST 
ACTION="<%=Request.ServerVariables("Script_ Name")%>" > 
<P> 请 输入 出 版 社 名 称 :<INPUT TYPE="text" NAME="PressName" SIZE=20> 
<INPUT TYPE="submit" NAME="btnSubmit" value=" 提 交 "> 
<INPUT TYPE="reset" NAME="btnReset" value=" 重 置 "></P> 
</FORM> 
<Hr 
<% 
call rs_ Display0 
%> 
</Center></BODY></HIML> 


(2) 局 动 正 浏览 器 后 ， 运 行 “ 出 版 社 查询 .asp” 文 件 ， 效 果 如 图 10-2 和 图 10-3 所 示 。 
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图 10-2 查询 页 面 图 10-3 查询 结果 


10.2 使 用 Recordset 对 象 


Recordset 对 象 可 以 根据 查询 条 件 ， 检 索 并 且 显 示 一 组 数据 库 记 录 。Recordset 对 象 保 
持 查 询 返 回 的 记录 位 置 , 允许 一 次 一 项 逐步 扫描 结果 , 根据 Recordset 对 象 的 指针 类 型 属性 
设置 ， 可 以 滚动 显示 和 更 新 记录 。 指 针 可 以 在 一 组 记录 中 定位 到 特定 的 项 ， 还 用 于 检索 和 
检查 记录 ， 然 后 在 这 些 记录 的 基础 上 执行 操作 。 


10.2.1 游标 类 型 


游标 类 型 (CursorType) 代 表 不 同 的 数据 获取 方法 。 打 开 记 录 集 时 ， 可 在 Open0 方 法 中 
指定 Recordset 对 象 所 用 的 游标 类 型 ， 或 者 在 调用 Open() 方 法 前 用 CursorType 属性 设置 游 
标 类 型 。 记 录 集 打开 后 ，CursorType 属性 是 只 读 的 ， 可 以 用 该 属性 返回 游标 类 型 。 

游标 类 型 的 取 值 与 相关 说 明 ， 如 表 10-3 所 示 。 


表 10-3 ”游标 类 型 (CursorType) 


只 能 向 前 浏览 记录 。 对 简单 的 浏览 可 提高 性 能 ， 但 很 多 属性 
仅 向 前 “| AdOpenForwardOnly 和 方法 (如 BookMark 、RecordCount 、 AbsolutePage 、 
AbsolutePosition 等 ) 不 能 使 用 

其 他 用 户 对 记录 所 做 的 修改 将 反映 到 记录 集中 ,但 其 他 用 户 增 
加 或 删除 的 记录 不 会 反映 到 记录 集中 。 键 集 游 标 支 持 
BookMark 属性 ， 支 持 全 功能 的 浏览 ， 可 以 使 用 RecordCount、 
AbsolutePage 和 AbsolutePosition 等 属性 

动态 游标 功能 最 强 ， 但 消耗 资源 也 最 多 。 使 用 动态 游标 时 ， 
其 他 用 户 对 记录 所 做 的 增加 、 删 除 或 修改 的 记录 都 会 反映 到 
记录 集中 。 动 态 游标 支持 全 功能 的 浏览 


键 集 adOpenKeyset 
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( 续 表 ) 
说 明 

静态 游标 只 是 数据 的 一 个 快照 , 其 他 用 户 对 记录 所 做 的 增加 、 
删除 或 修改 的 记录 都 无 法 反映 到 记录 集中 。 静 态 游标 支持 向 
前 或 向 后 移动 

一 旦 打开 Recordset 对 象 , 就 不 能 改变 CursorType 属性 。 但 是 关闭 Recordset( 采 用 关闭 
方式 ) 对 象 后 可 以 改变 CursorType 属性 ， 然 后 重新 打开 Recordset 对 象 ， 那 么 就 可 以 有 效 地 
改变 它 的 类 型 。 


注意 : 

用 户 可 依据 需求 ， 指 定 CursorType 为 上 述 指针 中 的 任何 一 种 ， 如 省 略 则 取 其 默认 值 
adOpenForwardOnly。 这 是 功能 最 少 的 记录 集 ， 耗 费 的 资源 也 最 少 。 

以 上 几 个 游标 类 型 将 直接 影响 到 Recordset 对 象 所 有 的 属性 和 方法 ， 当 显示 一 个 表 时 ， 
不 同 的 指针 类 型 将 会 影响 到 这 个 表 的 属性 和 方法 ， 如 表 10-4 所 示 。 


表 10-4 游标 类 型 对 Recordset 属性 的 影响 


Recordset 属性 
或 方法 adOpenForwardOnly adOpenDynamic | adOpenStatic 

AbsolutePage 属性 | 不 支持 可 读 写 可 读 写 
AbsolutePosition 属 | 不 支持 F 可 读 写 
性 

BOF 属性 只 读 只 读 
CursorType 属性 可 读 写 可 读 写 
EOF 属性 只 读 只 读 
Filter 属性 可 读 写 可 读 写 
LockType 属性 可 读 写 可 读 写 
PageCount 属性 不 支持 只 读 
PageSize 属性 可 读 写 可 读 写 
RecordCount 属性 “| 不 支持 只 读 
AddNew() 方 法 支持 支持 
CancelBatch0 方 法 | 支持 支持 
CancelUpdate0 方 法 | 支持 支持 
Clone0 方 法 支持 支持 
Delete0 方 法 支持 支持 
Move0 方 法 不 支持 支持 
JMoveFirst0 方 法 支持 支持 
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( 续 表 ) 
Recordset 属性 

或 方法 adOpenForwardOnly | adOpenKeyset | adOpenDynamic | adOpenStatic 
MoveLast0 方 法 不 支持 支持 支持 支持 
MoveNext0 方 法 支持 支持 支持 
MovePrevious() 方 法 | 不 支持 支持 支持 
Open0 方 法 支持 支持 支持 
Update0 方 法 支持 支持 支持 
UpdateBatch0 方 法 | 支持 支持 支持 
以 下 代码 使 用 一 个 Connection 对 象 objConn 和 前 向 游标 打开 了 一 个 记录 集 : 


<% 
database="db1.mdb" 
"定义 数据 库 的 驱动 程序 和 物理 路 径 
StrConnect="Driver={Micrsoft Access Driver(*.mdb)}";_ 

DBQ="&Server.MapPath(database)" 

"创建 Connection 对 象 
Set objConn=Server.CreateObject("ADODB.Connection") 
objConn.Open StrConnect 
Set rs=Server.CreateObject("ADODB.RecordSet") 
"从 数据 库 中 读 取 所 有 记录 ， 并 保存 在 rs 中 
Is.Open"Select*from Record",objConn,adOpenForwardOnly 
re.Close 
objConn.Close 

%> 


【 例 10-2】 创建 一 个 能 进行 数据 搜索 和 操作 的 页 面 ， 在 该 页 面 中 能 根据 图 书 的 名 称 在 
数据 库 中 进行 查询 符合 条 件 的 图 书 ， 还 可 以 链接 到 相应 的 页 面 对 该 记录 进行 编辑 和 删除 操 


作 ， 程 序 运 行 效果 如 图 10-4 所 示 ( 在 操作 本 实例 前 ， 用 户 应 结合 本 


创建 搜索 页 面 的 数据 库 并 输入 数据 )。 
(1) 创建 一 个 名 称 为 “链接 查询 .asp” 的 网 页 ， 代 码 如 下 所 示 : 


<%@ Language=VBScript %> 
<% Response.Buffer = True %> 
<HIML> 
<TITLE> 图 书 查询 </TITLE> 
<HEAD> 
<SCRIPT Language="VBScript" RUNAT="Server"> 
Sub rs_Display0 
dim strConn,strSQL.stBookName 
strBookName = Request.Form("BookName") 


书 第 9 章 所 介绍 的 内 容 
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Set conn=Server.CreateObject("ADODB.Connection") 
strConn="Driver={SQL Server} :Database=booknet:&- 
Server=ZHANGSHIHUA\TEST:UID=sa;PWD=;" 
conn.Open strConn 
strSQL = "SELECT * FROM Books" 
strSQL = strSQL & " WHERE BookName LIKE '%" & Trim(strBookName) & "%" 
strSQL = strSQL & " ORDER BY BookName" 
Set rs = Server.CreateObject("ADODB.Recordset") 
Is.Open strSQL,conn 
With Response 
ifIs.EOF then 
-Write "没有 查询 到 相关 的 记录 ! " 
else 
.Write " <TABLE BORDER=1 CELLSPACE=0 CELLPADDING=S>"& 
"<TR HEIGHT=12><TD WIDTH=20><B> BookID </B></TD>" &_ 
"<TD WIDTH=270><B> 书 名 </B></TD>" & 


"<TD WIDTH=200><B> 作者 </B></TD>" & 


"<TD WIDTH=40><B> 价格 </B></TD>" & 


"<TD WIDTH=40><B> 修改 </B></TD>"&_ 
"<TD WIDTH=40><B> 删除 </B></TD></TR>" 

endif 

do Until rs.EOF 

.Write "<TR HEIGHT=12><TD WIDTH=20>" & rs("BookID") & "</TD>" &_ 

"<TD WIDTH=270>" & rs("BookName") & "</TD>" &_ 
"<TD WIDTH=200>" & rs("Wniter") & "</TD>" &_ 
"<TD WIDTH=40>" & rs("Price") & "</TD>" &_ 


"<TD WIDTH=40><A HREF=" & chr(34) & "10-5- 编 辑 页 面 .asp?BookID=" &_ 


Is("BookID") & ww & chr(34) & ">" & "编辑 " & "</A></TD>" &_ 


"<TD WIDTH=40><A HREF=" & chr(34) & "10-6- 删 除 .asp?BookID=" &_ 


rs("BookID") & "™ & chr(34) & ">" & "删除 " & "</A></TD>" &_"</TR>" 
TS.MoveNext 
loop 
-Write "</TABLE>" 
End With 
Is.Close 
conn.Close 
end sub 
</SCRIPT> 
<BODY> 
<Center><H4> 带 超 链接 的 图 书 查 询 页 面 </H4> 
<Hr> 
<FORM NAME="thisForm" METHOD=POST 
ACTION="<%=Request.ServerVariables("Script_ Name")%>"> 
<P> 请 输入 书 名 :<INPUT TYPE="text" NAME="BookName" SIZE=20> 
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<INPUT TYPE="submit" NAME="btnSubmit" value=" 查 找 "> 
<INPUT TYPE="reset" NAME="btnReset" value=" 重 置 "> 
<INPUT TYPE="button" NAME="btnInsert" value=" 插 入 "&- 
onclick="location.hre 信 "10-7- 插 入 页 面 .htm"> 
<P> 
</FORM> 
<% 
callrs_Display( 
%> 
<HR> 
</Center></BODY></HIMI> 


(2) 运行 “链接 查询 .asp” 网 页 后 ， 用 户 不 仅 能 根据 图 书 的 名 称 在 数据 库 中 搜索 符合 条 件 
的 图 书 ， 还 可 以 链接 到 相应 的 页 面 对 页 面 记录 进行 编辑 和 删除 操作 ， 如 图 10-4 所 示 。 
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图 10-4 “编辑 和 删除 操作 的 页 面 记录 列表 
10.2.2 ”锁定 类 型 


锁定 类 型 (LockType) 是 针对 数据 库 操作 中 并 发 事件 的 发 生 而 提出 的 系统 安全 控制 方 
式 。 锁定 类 型 不 仅 影响 Recordset 对 象 的 并 发 事件 的 控制 处 理 方式 , 而 且 决 定 了 记录 集 是 否 
能 更 新 以 及 记录 集 的 更 新 是 否 能 批量 地 进行 。 
打开 记录 集 时 ， 可 以 在 Open() 方 法 中 指定 锁定 类 型 ， 或 者 在 调用 Open 方法 前 用 
LockType 属性 来 设置 锁定 类 型 。 锁 定 类 型 的 取 值 与 相关 说 明 ， 如 表 10-5 所 示 。 
表 10-5 锁定 类 型 (LockType) 


类 型 说 有明 

只 读 以 只 读 方式 打开 记录 集 时 ， 不 能 改变 任何 数据 ， 只 读 方 
式 是 默认 的 锁定 方法 

保守 式 当 编 辑 时 立即 锁定 记录 ， 这 是 最 安全 的 锁定 方法 
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( 续 表 ) 
类 型 说 明 
数据 提供 者 只 有 在 调用 Update0 方 法 时 才 锁 定 记录 , 而 在 
开放 式 此 之 前 其 他 操作 者 仍 可 对 当前 记录 进行 增加 、 删 除 或 修 
改 等 操作 
开放 式 当 编 辑 记录 时 记录 不 会 被 锁定 ， 而 增加 、 删 除 或 修改 记 
批 处 理 录 是 在 批 处 理 方式 下 完成 的 


如 果 数 据 源 没有 返回 记录 ， 那 么 提供 者 将 BOF 和 EOF 属性 同时 设置 为 True， 并 且 不 
定义 当前 记录 位 置 。 如 果 游 标 类 型 允许 ， 仍 然 可 以 将 新 数据 添加 到 该 空 Recordset 对 象 。 

注意 : 

锁定 类 型 的 设 定 会 影响 数据 的 修改 程序 ， 若 是 没有 指定 锁定 类 型 ， 则 会 返回 一 个 默认 
只 读 的 记录 集 对 象 ， 其 中 的 数据 无 法 被 修改 。 


10.2.3 浏览 记录 


记录 集 对 象 引用 Open() 方 法 成 功 之 后 , SQL 语句 所 取得 的 数据 复 本 会 储存 在 记录 集 对 
象 之 中 ， 此 时 的 记录 集 对 象 类 似 一 个 包含 特定 数据 的 原始 数据 表 ， 例 如 以 下 的 程序 片段 : 


ObjRst.Open "select * from Customers ","dsn=test:" 


这 段 程序 代码 返回 的 记录 集 对 象 ObjRst， 实 际 上 就 是 Customers 数据 表 的 内 容 ， 可 以 
通过 移动 记录 集 对 象 的 指针 ， 浏 览 数据 表 中 每 一 条 记录 的 特定 字段 内 容 。 

指针 总 是 指向 记录 集 当 前 的 数据 位 置 ，Recordset 对 象 提 供 4 个 重要 的 数据 浏览 方法 : 
MoveFirst()、MovePrevious()、MoveNext() 和 MoveLast()， 分 别 将 当前 指针 移 到 记录 集 的 首 
记录 、 前 一 个 记录 、 后 一 个 记录 和 末 记 录 ， 如 图 10-5 所 示 。 


BOF 数据 集 开始 位 置 
B00001 ASP. net 数 据 库 高 级 教程 (C# 篇 ) 有 MoveFirst 
B00002 ASP 网 络 应 用 系统 分 析 
B00003 ASP 编 程 基础 及 应 用 教程 
B00004 ASP 编 程 基础 
B00005 ASP. net 4. 0 大 揭秘 
B00006 ASP 信 息 系统 设计 与 开发 实例 本 四 Evi 
B00007 ASP&ASP. net 应 用 编程 150 例 所 一 一 一 一 一 指针 当前 位 置 
| Bo0008 ASP. net PRO 中 文 精华 版 < 一 MoveNext 
| Boooo9 网 页 制作 ASP 培 训 | 教程 
B00010 深入 网 络 编程 
| soooll 网 络 编程 基础 
B00012 ASP 基 础 教程 < MoveLast 
EOF 数据 集结 束 位 置 


图 10-5 指针 的 移动 


当 指针 位 于 记录 集 的 结束 位 置 ， 则 函数 EOF 的 返回 值 为 Tue， 否则 为 Flase。 对 于 查 
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询 返 回 的 记录 集 对 象 ， 其 默认 的 指针 位 置 为 首 记 录 。 通 过 指定 数据 对 象 的 字段 名 称 ， 可 以 
取得 记录 集 当 前 指针 位 置 所 在 的 这 条 记录 中 的 字段 内 容 。 

记录 集 在 浏览 记录 时 会 受到 其 打开 时 候 所 指定 的 游标 类 型 的 限制 。 例 如 ， 一 个 设 定 为 
adOpenForwardOnly 的 记录 集 ， 只 能 往 前 移动 ， 因 此 引用 MoveFirst0 或 是 MovePrevious() 
将 会 引发 不 允许 操作 的 错误 。 而 adOpenDynamic 则 拥有 最 大 的 自由 度 ， 可 以 随意 引用 任何 
一 个 方法 浏览 记录 集 。 

如 图 10-5 所 示 ， 有 两 个 标示 为 BOF 和 EOF 的 特殊 指针 位 置 ， 分 别 代表 记录 集 开始 与 
结束 的 位 置 , 这 两 个 位 置 只 是 一 个 空 值 。 当 指针 已 经 移动 至 首 记 录 时 , 使 用 MovePrevious() 
可 以 达到 BOF 的 位 置 ， 反 之 引用 MoveLast0， 可 以 将 指标 移 到 EOF。 

记录 集 对 象 提供 了 BOF 和 EOF 属性 ， 用 来 判断 当前 指针 是 否 位 于 记录 和 集 的 开始 或 结 
束 的 位 置 ， 因 此 在 应 用 程序 中 ， 通 常 都 会 通过 查看 记录 集 对 象 的 BOF 或 是 EOF 属性 值 是 
否 为 True， 以 了 解 指针 是 否 位 于 记录 集 的 开头 或 是 结束 的 位 置 ， 代 码 如 下 : 


blnEof = objRst EOF 


10.2.4 添加 记录 


添加 记录 有 两 种 方法 : 一 种 是 用 SQL INSERT INTO 语句 ; 另 一 种 是 用 Recordset 对 象 
的 AddNew() 方 法 。 

如 果 用 户 希望 在 数据 库 特 定 表 中 添加 一 条 记录 ， 则 必须 使 用 INSERT 语句 ，INSERT 
语句 的 语法 结构 如 下 : 


INSERT INTO 表 名 [( 字 段 名 称 1 [, 字段 名 称 2[, …]])] 

VALUES (数据 1 [, 数据 2 [了 

在 使 用 INSERT 语句 添加 数据 时 必须 注意 以 下 几 点 : 

e ， 表 名 后 括号 内 的 字段 名 称 的 排列 顺序 与 VALUES 后 括号 内 数据 的 排列 顺序 必须 一 
致 ， 否 则 进行 数据 添加 时 会 失败 。 

e 对 未 设置 的 字段 ， 添 加 数据 时 其 默认 值 为 Null。 

e 对 于 新 添加 的 数据 记录 ， 在 建立 时 就 给 予 其 默认 值 ， 而 值 为 Null。 


【 例 10-3】 打 开 一 个 Recordset 对 象 ， 然 后 用 AddNew0 方 法 插入 一 条 空 记录 ， 填 充 空 
记录 的 各 个 字段 ， 再 调用 Update() 方 法 把 记录 写 到 数据 库 中 。 
(1) 确定 adovbs.inc 文件 在 应 用 程序 的 当前 目录 中 。 
(2) 建立 显示 添加 记录 内 容 的 页 面 元 素 的 “添加 记录 .html” 文 件 ， 代 码 如 下 : 
<html><head><title> 添 加 一 条 新 记录 </title></head> 
<body> 
<Center><H4> 添 加 一 条 新 记录 </H4></Center> 
<Hr> 


。228 。 ASP 动态 网 站 开发 基础 教程 (第 5 版 ) 


<FORM Method=POST Action=" 添 加 记录 .asp" > 
<table border="0" width="100%"> 
<tr><td align="right" width="20%"><B> 书 名 : </B></td> 
<td width="80%"><input type="text" name="BookName" size=50> 
<Font color=Red> ** 必 须 输入 **</Color></td></tr> 
<tr><td align="right"><b> 作 者 : </b></td> 
<td><input type="text" name="Writer" size=30></td></tr> 
<tr><td align="right"><b> 出 版 社 : </b></td> 
<td><input type="text" name="Press" size=50></td></tr> 
<tr><td align="right"><b> 出 版 日 期 : </b></td> 
<td><input type="text" name="PublishDate" size=10></td></tr> 
<tr><td align="right"><b> 定 价 : </b></td> 
<td><input type="text" name="Price" size=10></td></tr> 
<tr><td align="right"><b> 内 容 简 介 : </b></td> 
<td> <TEXTAREA COLS=50 ROWS=4 name="Statement"></TEXTAREA></td></tr> 
<tr><td align="right"><b> 类 别 : </b></td> 
<td><input type="text" name="category" size=10></td></tr> 
<tr><td align="right"><b> 子 类 : </b></td> 
<td><input type="text" name="SubCategory" size=10></td></tr> 
<tr><td align="right"><b> 库 存量 : </b></td> 
<td><input type="text" name="Quantity" size=10></td></tr> 
<tr><td COLSPAN=2 ALIGN=Center> 
<input type="submit" value=" 保 存 "> 
<input type="reset" value=" 重 置 "> 
<input type="button" value=" 返 回 "onclick="location hre 全 index.asp"></td></t> 
</table> 
</FORM> 
</body></html> 


(3) 建立 处 理 添加 记录 内 容 程序 的 “添加 记录 .asp” 文 件 。 


<%@ Language=VBScript %> 
<!--#include file="adovbs.ine"--> 
<% 
if IsNumeric(Request.Form("Quantity")) and _ 
IsNumeric(Request.Form("Price")) and _ 
IsDate(Request.Form("PublishDate")) then 
strConn="Driver={SQL Server}:Database=booknet:&- 
Server=ZHANGSHIHUA\TEST:UID=sa:PWD=:" 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.CursorType = adOpenKeyset 
rs.LockType = adLockOptimistic 
Ts.Open "Books",strConn,,.adCmdTable 
Is.AddNew 添加 一 条 新 记录 
rs("BookID") = "B" & Zeros(S-len(rs.RecordCount + 1)) & CStr((rs.RecordCount + 1)) 
rs("BookName") = Trim(Request.Form("BookName")) 
rs("Writer") = Trim(Request.Form("Writer")) 
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rs("Press") = Trim(Request.Form("Press")) 
rs("PublishDate") = CDate(Trim(Request.Form("PublishDate"))) 
rs("Statement") = Trim(Request.Form("Statement")) 
rs("Category") = Trim(Request.Form("Category")) 
rs("SubCategory") = Trim(Request.Form("SubCategory")) 
rs("Quantity") = CInt(Trim(Request.Form("Quantity"))) 
rs("Price") = CCur(Trim(Request.Form("Price"))) 
ifrs.Supports(adUpdate) then 
Is.Update 
Response.Redirect(" 添 加 记录 .html") 
endif 
Is.Close 
else 
Response.Write "输入 的 数量 、 价 格 、 出 版 日 期 中 有 错 ， 请 重新 输入 !" 
endif 
%> 
<SCRIPT Language="VBScript" RUNAT="Server"> 
Function Zeros(intNum) 
Dim LstrOut 
forI= 1 to intNum 
strOut = strOut & "0" 
next 
Zeros = strOut 
End Function 
</SCRIPT> 


(4) 运行 程序 后 ， 效 果 如 图 10-6 所 示 。 用 户 可 以 通过 该 页 面向 数据 库 中 添加 记录 。 


Er WE el 
ni lt 


漂 加 一 条 新 记录 


书 名 ， t+ 


iD 了 类 


FEE EE 


i | 国人 加 


图 10-6 ”网 页 效果 


10.2.5 ”更 新 记录 


有 两 种 方法 可 对 记录 进行 更 新 : 一 种 是 用 SQL UPDATE 语句 修改 记录 ， 另 一 种 是 
Recordset 对 象 的 Update() 方 法 修改 记录 。 
要 更 新 数据 库 中 的 记录 , 游标 类 型 应 设置 成 动态 , 更 新 数据 使 用 UPDATE 语句 ， 其 基 
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本 语法 如 下 : 


UPDATE 表 名 
SET 字段 = 数据 1, 字段 2= 数 据 2，… 
WHERE 筛选 条 件 


更 新 操作 有 以 下 3 种 情况 。 

e 所 有 记录 全 部 更 新 : 可 以 对 表 中 所 有 的 记录 同时 进行 内 容 的 更 新 。 

e 不 更 新 索引 键 值 而 只 更 新 其 他 字段 的 内 容 : 仅仅 更 新 每 一 条 记录 内 的 非 索引 字段 内 容 。 

e 更 新 索引 键 值 ， 必 须 连 带 地 更 新 其 他 表 中 相关 联 的 记录 内 容 。 

【 例 10-4】 打 开 一 个 记录 集 ， 然 后 更 改 其 数据 ， 再 调用 Update0 或 UpdateBatch0 方 法 
把 所 做 的 更 改写 入 到 数据 库 中 。 

(1) 确定 adovbs.inc 文件 在 应 用 程序 的 当前 目录 中 。 

(2) 建立 显示 和 处 理 修改 记录 内 容 页 面 的 “更 新 记录 .asp” 文 件 ， 代 码 如 下 所 示 : 


<9%Q@ Language=VBScript %> 
<!--#include file="adovbs.inc"--> 
<% Response.Buffer = True %> 
<SCRIPT Language="VBScript" RUNAT="Server"> 
Dim rs 
Dim conn 
Dim strBookID 
sub Get Record0 
strBookID = Request.QueryString("BookID") 
' 创 建 Connection 对 象 conn 
Set conn=Server.CreateObject("ADODB.Connection") 
' 使 用 DSN 建立 conn 与 数据 库 的 连接 
strConn="Driver={SQL Server}:Database=booknet: 
Server=ZHANGSHIHUA\TEST;UID=sa:PWD=;" 
conn.Open strConn 
strSQL = "SELECT * FROM Books " 
strSQL = strSQL&" WHERE BookID =" & Trim(strBookID) 
Set rs = Server.CreateObject("ADODB.Recordset") 
Is.Open strSQL.conn 
End sub 
sub Update _ Record() 
if IsNumeric(Request.Form("Quantity")) and _ 
IsNumeric(Request.Form("Price")) and _ 
IsDate(Request.Form("PublishDate")) then 
Set rs = Server.CreateObject("ADODB.Recordset") 
Is.CursorType = adOpenStatic 
rs.LockType = adLockOptimistic 
strConn="Driver={SQL Server}:Database=booknet; 


第 10 章 Recordset 对 象 查询 和 操作 记录 


= 231“ 


Server=ZHANGSHIHUA\TEST:UID=sa: PWD=:" 
strSQL = "SELECT * FROM Books" 
strSQL = strSQL & " WHERE BookID =" & Trim(strBookID) 
Is.Open strSQL.,strConn,,,adCmdText 
ifrs.EOF then 
Response.Write "没有 查询 到 相关 的 记录 ! " 
Exit sub 
end 让 
过 rs.Supports(adUpdate) then 
rs("BookName") = Trim(Request.Form("BookName")) 
rs("Writer") = Trim(Request.Form("Writer")) 
rs("Press") = Trim(Request.Form("Press")) 
rs("PublishDate") = CDate(Trim(Request.Form("PublishDate"))) 
Is("Statement") = Trim(Request.Form("Statement")) 
Is("Category") = Trim(Request.Form("Category")) 
rs("SubCategory") = Trim(Request.Form("SubCategory")) 
Is("Quantity") = CInt(Trim(Request.Form("Quantity"))) 
rs("Price") = CCur(Trim(Request.Form("Price"))) 
rs.Update 
if conn.Errors.Count > 0 then 
Response. Write "Transacton Error" 
else 
Response. Write "Transacton Ok" 
endif 
Response.Redirect("index.asp") 
else 
Response.Write "没有 能 够 更 新 数据 ! " 
endif 
Is.Close 
else 
Response.Write "输入 的 数量 、 价 格 、 出 版 日 期 中 有 错 ， 请 重新 输入 ! " 
end 让 
Is.Close 
conn.Close 
Set rs = Nothing 
Set conn = Nothing 
end sub 
Function Zeros(intNum) 
Dim LstrOut 
forI= 1 to intNum 
strOut = strOut & "0" 
next 
Zeros = strOut 
End Function 


。232 。 ASP 动态 网 站 开发 基础 教程 (第 5 版 ) 


< 人 SCRIPT> 

<html><head><title> 修 改 一 条 现 有 记录 </title></head> 

</body></html> 

(3) 运行 index.asp 文件 ， 单 击 记录 后 的 “编辑 ” 超 链 接 ， 执 行 记录 的 编辑 操作 ， 结 果 
如 图 10-7 所 示 。 


Ta RE > rr 
你 改 一 条 现 有 记录 


[CE ma 


i 


图 10-7 更 新 记录 


10.2.6 ”删除 记录 


有 两 种 方法 可 对 记录 进行 更 新 : 一 种 是 用 SQL DELETE 语句 删除 记录 ， 另 一 种 是 用 
Recordset 对 象 的 Delete0 方 法 删除 记录 。 

使 用 DELETE 语句 在 表 中 删除 一 条 记录 时 ， 必 须 特别 注意 ， 一 旦 数据 被 删除 ， 将 无 法 恢 
复 。 如 果 没 有 指定 Where 子 句 ， 将 删除 表 中 的 所 有 记录 。 以 下 是 DELETE 语句 的 语法 结构 : 


DELETE FROM 表 名 WHERE 筛选 条 件 


【 例 10-5】 打 开 一 个 记录 集 ， 然 后 用 Delete0 方 法 删除 其 中 的 记录 。 
(1) 创建 删除 记录 页 面 的 “删除 记录 .asp” 文 件 ， 代 码 如 下 所 示 : 


<% 
strBookID = Request.QueryString("BookID") 
Set conn=Server.CreateObject("ADODB.Connection") 
strConn="Driver={SQL Server}:;Database=booknet:Server=ZHANGSHIHUA\TEST:;UID=sa: PWD=;" 
conn.Open strConn 
strSQL = "DELETE FROM Books" 
strSQL = strSQL & " WHERE BookID =" & Trim(strBookID) 
conn.Execute strSQL,,adCmdText + adExecuteNoRecords 
conn.Close 
Response.Redirect("index.asp") 

%> 
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(2) 运行 index.asp 文件 ,， 单 击 某 记 录 后 的 “删除 ” 超 链接 以 进入 删除 记录 的 操作 页 面 ， 
如 图 10-8 所 示 。 


1 人 | STs [+| Poy ad 
编 百 日 19216817716 合 "| 加 a 


带 超 链 按 的 图 书 查询 页 面 


fs El BE Ws| 


BookID | 书 名 作者 价格 | 作 改 | 开除 
4 测试 加 和 test | 人 
Bo0013 测试 "| | 噶 


图 10-8 删除 记录 


10.2.7 Supports() 方 法 


Supports() 方 法 用 来 判断 Recordset 对 象 是 否 支持 特定 的 功能 ， 其 语法 结构 如 下 : 
Recordset.Supports(CursorOptions) 
参数 CursorOptions 的 取 值 及 其 相关 说 明 ， 如 表 10-6 所 示 。 


表 10-6 ”Supports() 方 法 的 参数 CursorOptions 的 取 值 及 相关 说 明 


常 量 名 值 说 了 明 
adAddNew 16 778 240 _| 确定 是 否 支持 AddNew0 方 法 
adApproxPosition 16 384 | 确定 是 否 可 以 读 写 AbsolutePage 和 AbsolutePosition 属性 
adBookMark 8 192 | 确定 是 否 支持 BookMark 属性 
adDelete 16 779 264 _| 确定 是 否 支 持 Delete0 方 法 
a ee 确定 是 否 可 以 提交 所 有 待定 修改 并 释放 所 有 当前 保留 记录 , 而 

取 回 更 多 的 记录 或 改变 下 一 次 取 回 的 记录 

adMovePrevious 512 | 确定 是 否 支持 Move0、MoveFirst0、MovePrevious0 方 法 
adResync 131 072 | 确定 是 否 支持 Resync0 方 法 
adUpdate 16 809 984 | 确定 是 否 支 持 Update0 方 法 
adUpdateBatch 65 536 | 确定 是 否 支 持 UpdateBatch0 方 法 


例如 ， 以 下 脚本 用 于 判断 记录 集 是 否 支 持 更 新 、 删 除 或 新 增 记 录 : 
<96Ifrst Supports(adUpdatetadDeletetadAddNew) Then%%> 


如 果 记 录 集 支持 的 功能 与 参数 CursorOption 指定 的 一 致 ， 返 回 True， 和 否则 返回 False。 
虽然 Supports( 方 法 可 以 对 一 个 指定 的 功能 返回 True， 但 数据 提供 者 不 能 保证 在 所 有 环境 
下 这 些 功能 都 是 可 用 的 。 
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10.2.8 ”Status 属性 


Status 属性 是 当前 记录 集 的 状态 标志 ， 这 些 标志 在 记录 被 更 改 、 删 除 、 插 入 和 改变 位 
置 时 会 受到 影响 。Status 属性 的 取 值 及 其 相关 说 明 ， 如 表 10-7 所 示 。 


表 10-7 Status 属性 的 取 值 


常 量 名 说 有明 
adRecOK 0 记录 更 新 成 功 
adRecNew | 1 | 当前 记录 是 新 的 ， 并 且 还 没有 更 新 到 数据 库 
adRecModified 2 | 当前 记录 被 修改 ， 并 且 还 没有 更 新 到 数据 库 
adRecDeleted 4 当前 记录 被 删除 
adRecUnmodified 8 当前 记录 未 被 修改 
adRecInvalid 书 繁 是 无 效 的 ， 记 录 未 被 更 新 
adRecMutipleChanged | 64 | 页 改 会 影响 到 多 条 记录 ， 记 录 未 被 更 新 
adRecPendingChanged 涉及 未 确定 的 插入 ， 记 录 未 被 更 新 
i 操作 被 取消 ， 记 录 未 被 更 新 
二 记录 被 锁定 ， 无 法 进行 更 新 
adRecConcurrencyViolation 记录 处 于 开放 式 锁定 之 中 ， 无 法 进行 更 新 
adRecTntegrityViolion 用 户 违反 完整 性 规则 ， 无 法 进行 更 新 
RM lanes ccd 存在 太 多 的 不 确定 更 改 ， 无 法 进行 更 新 
adRecObjectOpen 与 一 个 打开 的 存储 过 程 冲突 ， 无 法 进行 更 新 
adRecOutOfMemo 内 存 不 够 ， 无 法 进行 更 新 
adRecPermissionDenied 用 户 没有 足够 权限 ， 无 法 进行 更 新 
adRecSchemaViolation 底层 数据 库 会 被 破坏 ， 记 录 没 有 更 新 
adRecDBDeleted 记录 已 从 数据 源 中 删除 


10.2.9 分 页 显示 


Recordset 对 象 提供 了 PageSize、PageCount 和 AbsolutePage 等 属性 ， 用 来 对 记录 集 实 
现 分 页 显示 功能 。 其 中 ，PageCount 属性 确定 记录 集中 包含 多 少 页 的 记录 ，PageSize 属性 
确定 每 页 显示 的 记录 数 ，AbsolutePage 属性 确定 当前 记录 位 于 哪 一 页 上 。 

【 例 10-6】 按 照 记录 的 先后 顺序 ， 分 页 显示 数据 库 中 表 的 内 容 。 

(1) 确定 adovbs.inc 文件 在 应 用 程序 的 当前 目录 中 。 

(2) 建立 显示 和 处 理 分 页 表 中 内 容 页 面 的 “分 页 显示 .asp” 文 件 。 

<%@ Language=VBScript %> 
<% Response Buffer = True %> 
<!--#include file="adovbs.inc"--> 
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<% 


Response.Expires=0 
Dim strConn,strSQL 
Dim intCur,intTotal,I 
Dim conn.rs 
Const intPageSize = 5 
if Request.ServerVariables("CONTENT LENGTH")=0 then 
intCur=1 
else 
intCur = CInt(Request. Form("CurPage")) 
Select Case Request.Form("Page") 
Case "首页 " 
intCur=1 
(Gage 页 
intCur = intCur-1 
Case 页 = 
intCur = intCur + 1 
Case " 尾 页 " 
intCur = CInt(Request.Form("LastPage")) 
End select 
end 让 
Set conn=Server.CreateObject("ADODB.Connection") 
strConn="Driver={SQL Server}:Database=bookmet'Server=ZHANGSHIHUAWIEST:UID=saPWD=:" 
conn.Open strConn 
strSQL = "SELECT * FROM Books" 
Set rs = Server.CreateObject("ADODB.Recordset") 
Is.CursorLocation = adUseClient 
Ts.CursorType = adOpenStatic 
Ts.CacheSize = intPageSize 
Is.Open strSQL,conn 
rs.PageSize = intPageSize 
If Not rs.EOF then 
rs.AbsolutePage = intCur 
endif 
intTotal = rs.PageCount 


(3) 网 页 运行 后 的 结果 如 图 10-9 所 示 。 
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图 10-9 分 页 显示 


10.3 认识 Fields 集合 与 Field 对 象 


每 个 Recordset 对 象 都 包含 一 个 Fields 集合 , 该 集合 用 来 处 理 记 录 集 中 的 字段 。 记录 集 
中 返回 的 每 个 字段 在 Fields 集合 中 都 有 一 个 对 应 的 Field 对 象 。 通 过 Field 对 象 ， 可 访问 字 
段 名 、 字 段 类 型 、 字 段 值 等 信息 。 


10.3.1 Fields 集合 简介 

Fields 集合 只 有 一 个 Count 属性 和 一 个 Item() 方 法 .Count 属性 返回 记录 集中 字段 (Field 
对 象 ) 的 个 数 ，Item() 方 法 用 于 建立 某 一 个 Field 对 象 。 

1. Fields 集合 的 属性 

Fields 集合 只 有 一 个 Count 属性 ， 该 属性 返回 记录 集中 字段 (Field 对 象 ) 的 个 数 ， 其 使 
用 方法 为 : 

Var=Recordset 对 象 .Fields.Count 

Var 的 值 为 字段 的 个 数 。 如 下 例 将 使 用 脚本 列 出 当前 记录 中 每 个 字段 的 值 : 


For I=0 To rst.FieldsCount-—1 
Response. Write rst(D&"<Br>" 
Next 


2. Fields 集合 的 方法 


Fields 集合 只 有 一 个 Iem() 方 法 ， 该 方法 用 于 建立 某 一 个 Field 对 象 ， 其 使 用 方法 为 : 
Set Field 对 象 =Recordset 对 象 .Fields.Item( 字 段 名 或 字段 索引 值 ) 


其 中 ， 字 段 索 引 值 是 根据 记录 集中 的 先后 顺序 排序 ， 从 0 到 FieldsCount - 1。 如 下 例 
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将 通过 名 字 或 序号 返回 相关 的 字段 的 值 : 


Is.Fields.Item (2) 
rs.Fields Item ("Writer") 


Item() 方 法 是 Fields 集合 的 默认 方法 ， 而 Fields 集合 是 Recordset 对 象 的 默认 集合 。 因 


此 ，Item() 和 Fields 可 省 略 ， 如 上 例 可 简化 书写 为 : 
rs (2) 
rs ("Writer") 


10.3.2 ”Field 对 象 简介 


下 面 将 简单 介绍 Field 对 象 的 属性 和 方法 。 
1. Field 对 象 的 属性 


Field 对 象 的 属性 及 其 说 明 ， 如 表 10-8 所 示 。 
表 10-8 _Field 对 象 的 属性 及 说 明 
属 性 说 ”了 明 
回 字段 的 实际 长 度 
返回 字段 的 特征 ， 可 取 下 列 值 之 一 或 组 合 
4 2 或 adFldMayDefer: 只 有 在 明确 指明 要 取 这 个 字段 时 ， 该 字段 的 值 才 从 
数据 源 返 回 
4 4 或 adFldUpdatable: 字段 可 更 新 
4 8 或 adFldUnknownUpdatable: 无 法 确定 字段 是 否 可 更 新 
4 16 或 adFldFixed: 字段 包含 固定 长 度 的 数据 
4 32 或 adFldIsNullable: 字段 可 以 接受 空 值 ， 可 用 于 检测 非 空 字段 
4 ”64 或 adFldMayBeNull: 可 以 从 该 字段 读 取 空 值 
4 128 或 adFldLong: 字段 类 型 为 长 整 型 
4 ，256 或 adRowID: 字段 是 一 个 行 标识 符 
+* 
+ 


ActualSize 


Attributes 


512 或 adFldRowVersion: 字段 包含 跟踪 更 新 日 期 和 时 间 的 标记 
4096 或 adFldCacheDeferred: 数据 源 将 字段 放 入 高 速 缓存 中 

用 法 : ifrs("Writer").Attributes and adFldIsNullable then… 

即 若 字段 允许 接受 空 值 ， 则 执行 此 段 代 码 

DefinedSize 返回 字段 的 定义 大 小 ， 如 rs("Writer").DefinedSize 

Name 返回 数据 库 中 字段 的 名 字 

NumericScale 说 明 字 段 的 小 数 部 分 需要 多 少 个 数字 位 

Precision 说 明 字段 的 值 需要 多 少 个 数字 位 

OriginalValue 返回 字段 修改 前 的 值 
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( 续 表 ) 
属 性 说 明 
UnderlyingValue “| ”从 数据 库 返 回 字段 的 当前 值 
yi | 字段 的 数据 类 型 
Value 返回 字段 的 值 


2. Field 对 象 的 方法 

Field 对 象 有 AppendChunk() 和 GetChunkO 两 个 方法 。AppendChunk() 方 法 用 于 将 大 块 
文本 和 二 进 制 数据 写 到 字段 中 。 当 系统 内 存 有 限时 ， 可 用 AppendChunk() 方 法 将 数据 分 块 
写 入 ， 而 不 用 一 次 将 数据 完全 添加 进去 。 该 方法 的 使 用 方式 如 下 : 


ObjectAppendChunk Data 


其 中 ，Data 是 待 写 入 字段 中 的 数据 。 每 次 后 续 的 AppendChunk() 方 法 调用 总 是 把 数据 
添加 到 已 有 数据 的 后 面 。 如 果 正 在 添加 数据 到 一 个 字段 中 ， 同 时 又 去 操作 当前 记录 的 其 他 
字段 值 ， 则 ADO 会 认为 对 这 个 字段 添加 数据 的 操作 已 完成 。 此 时 ， 再 对 这 个 字段 调用 
AppendChunk0 方 法 , ADO 会 认为 是 一 个 新 的 AppendChunk() 方 法 调用 , 并 覆盖 掉 已 有 的 数据 。 

GetChunk() 方 法 从 字段 中 获取 大 块 文本 或 二 进 制 数据 的 部 分 或 全 部 内 容 。 当 系统 内 存 
有 限时 ， 可 用 GetChunk() 方 法 将 数据 分 块 读 出 ， 而 不 用 一 次 全 部 读 出 。 该 方法 的 使 用 方 
式 如 下 : 


Object.GetChunk(Size) 


其 中 ，Size 是 待 获取 的 字 节 数 或 字符 数 。 如 果 Size 比 余 下 的 数据 大 ，GetChunk 方法 
仅 返 回 剩余 的 数据 ;如 果 字 段 是 空 的 ， 则 返回 Null。 

每 次 后 续 的 GetChunk() 方 法 调用 总 是 从 前 一 次 调用 结束 的 位 置 开始 。 但 如 果 正 从 一 个 
字段 读 取 数据 ， 然 后 又 去 操作 当前 记录 的 另 一 个 字段 的 值 ， 则 ADO 会 认为 这 个 字段 的 读 
取 数据 的 操作 已 完成 。 此 时 ， 再 对 这 个 字段 调用 GetChunk() 方 法 ，ADO 会 认为 是 一 个 新 的 
GetChunk() 方 法 调用 ， 即 重新 从 开始 位 置 读 起 。 


注意 : 


当 Field 对 象 的 Attibute 属性 的 adFldLong 被 置 为 True 时 , 可 在 该 字段 上 使 用 GetChunk0 
和 AppendChunk() 方 法 。 


10.4 认识 Errors 集合 与 Error 对 象 


涉及 ADO 对 象 的 操作 可 能 产生 一 个 或 多 个 错误 ， 这 些 错误 都 和 数据 提供 者 有 关 。 每 
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当 错 误 发 生 时 ， 就 会 有 一 个 或 多 个 Error 对 象 被 放置 到 Connection 对 象 的 Errors 集合 中 。 
另外 一 个 ADO 操作 产生 错误 时 ， 将 清除 Errors 集合 ， 并 把 新 的 Error 对 象 集 放 到 Errors 
集合 

Errors 集合 有 一 个 Count 属性 , 该 属性 用 来 指出 Errors 集合 目前 所 包含 的 Ermror 对 象 的 
个 数 。Errors 集合 有 一 个 Item0 方 法 ， 可 以 调用 Item() 方 法 从 Errors 集合 中 获得 某 个 具体 的 
Error 对 象 。 Iem0 方 法 是 Errors 集合 的 默认 方法 , 调用 时 可 省 略 不 写 。 此 外 , 还 可 调用 Clear0 
方法 从 Emors 集合 中 清除 所 有 的 Emor 对 象 .Error 对 象 的 属性 及 其 相关 说 明 , 如 表 10-9 所 示 。 


由 


表 10-9 Error 对 象 的 属性 及 说 明 


属 性 说 了 明 
Description 关于 该 项 错误 的 描述 文字 
HelpContext 这 是 一 个 长 整数 ， 对 应 于 产生 错误 对 象 的 相关 帮助 主题 
HelpFile 对 应 于 产生 错误 的 对 象 的 相关 帮助 文件 
NativeErmror 数据 提供 者 所 提供 的 针对 错误 的 错误 代码 
Number ADO 所 产生 的 错误 代码 
Source 错误 所 产生 的 对 象 名 称 
SQLState 该 属性 是 一 个 长 度 为 5 字 节 的 字符 串 ， 包 含 按 SQL 标准 所 定义 的 错误 


10.$S 认识 Properties 集合 与 Property 对 象 


Connection、Recordset、Field、Command 对 象 都 有 Properties 集合 ，Properties 集合 用 
来 保存 与 这 些 对 象 有 关 的 各 个 Property 对 象 ，Property 对 象 表示 各 个 选项 设置 或 其 他 没有 
被 对 象 的 固有 属性 处 理 的 ADO 对 象 特征 。 

ADO 对 象 一 般 包 含 两 种 类 型 的 属性 : 一 是 固有 属性 ， 另 一 是 动态 属性 。 固 有 属性 不 是 
作为 Property 对 象 出 现在 Properties 集合 中 。 当 创建 新 的 ADO 对 象 后 ， 这 些 固有 属性 可 立 
即使 用 。 例 如 ， 可 以 用 Recordset 对 象 的 EOF 和 BOF 属性 判断 当前 记录 是 否 已 到 达 边 界 。 

动态 属性 是 由 后 端 数 据 提供 者 定义 的 ， 这 些 属性 被 放 到 Properties 集合 中 。 每 个 特定 
的 ADO 对 象 都 有 一 个 Properties 集合 。 

Properties 集合 有 一 个 Count 属性 , 用 来 指出 Properties 集合 上 有 多 少 个 Property 对 象 。 
可 以 用 Item() 方 法 从 Properties 集合 中 获得 某 个 Property 对 象 。Item() 方 法 是 Properties 集合 
的 默认 方法 ， 调 用 时 可 省 略 不 写 。 如 果 要 从 数据 提供 者 上 取得 Properties 集合 和 扩展 的 属 
性 信息 ， 可 以 调用 Refresh0 方 法 。 

Property 对 象 的 属性 及 其 相关 说 明 ， 如 表 10-10 所 示 。 


表 10-10 ”Property 对 象 的 属性 及 说 明 
属 性 说 明 


Attributes 指定 何 时 和 如 何 设 定 Property 对 象 的 值 
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( 续 表 ) 
属 性 说 了 明 
Name Property | 指定 Property 对 象 的 名 称 
pe | 指定 当前 Property 对 象 的 值 的 数据 类 型 
Value Proper 设置 Property 对 象 的 值 
10.6 习 题 
10.6.1 填空 题 
1. Recordset 中 的 记录 指针 具有 游标 类 型 ， 它 的 默认 值 为 
2. 是 针对 数据 库 操作 中 并 发 事件 的 发 生 而 提出 的 系统 安全 控制 方式 。 
3. Fields 集合 的 属性 返回 记录 集中 字段 (Field 对 象 ) 的 个 数 ， 


方法 用 于 建立 某 一 个 Field 对 象 。 
10.6.2 ”选择 题 


1. Recordset 对 象 在 使 用 前 需要 使 用 (。 ) 对 象 建立 数据 库 的 连接 。 


A. Application B. Connection 
C. Sever OnStart D. Session 
2. 在 Recordset 对 象 创建 完成 之 后 ， 即 可 打开 ( ””) 对 象 的 内 容 。 
A. Application B. Connection 
C. Recordset D. Session 


10.6.3 问答 题 


1. 在 使 用 INSERT 语句 添加 数据 时 需要 注意 哪些 方面 ? 
2. Recordset 对 象 使 用 Connection 对 象 与 数据 库 建 立 连接 的 操作 步骤 是 什么 ? 


10.6.4 ”操作 题 


1. 参考 本 章 【 例 10-1】 的 操作 创建 一 个 ASP 查询 页 面 。 
2. 参考 本 章 【 例 10-2】 的 操作 创建 一 个 能 够 在 数据 库 中 添加 记录 的 ASP 页 面 。 


第 11 章 ”ASP 综合 开发 实例 一 一 
用 户 管理 系统 


教学 目标 
通过 本 章 的 实例 讲解 ， 读 者 应 掌握 利用 ASP 技术 制作 一 个 用 户 管理 网 页 模块 的 方法 。 


教学 重点 与 难点 

e@ 验证 码 的 实现 方法 

e。 MD5 加 密 算法 

@ 限制 用 户 权 限 的 方法 
e@ 实现 用 户 管理 系统 


许多 网 络 应 用 系统 中 都 包含 用 户 管理 功能 ， 具 备 不 同 权限 的 用 户 在 登录 网 站 时 可 以 执 
eve 例如 ， 在 网 上 论坛 中 ， 版 主 用 户 拥 有 可 以 删除 其 他 所 有 用 户 帖子 的 权 

， 而 一 般 用 户 只 能 发 布 、 删 除 、 修 改 自己 的 帖子 。 因 此 ， 用 户 在 开发 ASP 动态 网 站 时 ， 
pe 与 网 站 应 用 目标 相符 的 用 户 管理 模块 。 


11.1 功能 描述 


专业 的 用 户 管理 系统 需要 涉及 安全 性 、 有 效 性 、 合 法 性 等 多 个 方面 的 内 容 。 下 面 将 介 
绍 一 个 系统 要 达到 安全 有 效 管理 所 需 用 到 的 相应 技术 , 包括 验证 码 技术 、MDS5 加 密 技术 和 
客户 端 服务 器 验证 技术 等 。 


11.1.1 验证 码 技术 简介 


用 户 登录 网 站 、 发 表 评论 时 都 需要 输入 相应 的 验证 码 。 验 证 码 就 是 将 一 个 随机 数字 (或 
文字 ) 显 示 在 一 幅 图 片上 ,并 在 图 片上 产生 干扰 因素 。 验 证 码 能 够 防止 网 络 攻击 者 利用 编写 
的 程序 ， 自 动 注册 或 重复 登录 暴力 破解 密码 的 攻击 行为 。 

1. 验证 码 的 作用 

对 于 动态 网 站 而 言 , 验证 码 非常 重要 , 因为 来 自 网 络 中 的 攻击 者 会 使 用 各 种 攻击 程序 ， 
注册 大 量 的 服务 账户 。 攻 击 者 可 以 使 用 这 些 账户 为 其 他 用 户 制造 麻烦 ， 例 如 ， 发 送 垃圾 邮 
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件 或 通过 同时 反复 登录 多 个 账户 来 延缓 服务 的 速度 。 而 在 一 般 情况 下 ， 攻 击 者 的 自动 注册 


程序 不 能 识别 验证 码 图 片 中 的 字符 , 验证 码 可 以 有 效 维护 网 站 的 正常 


2. 验证 码 的 实现 流程 


用 户 注册 与 登录 系统 。 


验证 码 的 实现 流程 是 : 在 服务 器 端 随机 生成 验证 码 字符 串 ， 并 保存 在 内 存 中 ， 然 后 将 
该 字符 串 写 入 图 片 ， 发 送 给 浏览 器 端 显示 ; 在 浏览 器 端 , 用 户 输入 验证 码 图 片上 的 字符 串 ， 
然后 提交 服务 器 端 ， 比 较 用 户 提交 的 字符 串 和 服务 器 端 保存 的 该 验证 码 字符 串 是 否 一 致 ， 


若 一 致 则 继续 下 一 步 ， 否 则 返回 提示 ， 如 图 11-1 所 示 。 


保存 生成 的 验证 码 随机 生成 验证 码 字 符 串 并 在 
写 入 图 片 后 发 送 给 浏览 器 端 


比 对 浏览 器 端 提供 的 


验证 码 ， 若 与 最 初 保 浏览 器 端 将 用 户 输入 的 
存 的 一 致 则 继续 ， 否 验证 码 提交 服务 器 端 
则 将 返回 浏览 器 端 


图 11-1 验证 码 的 实现 流程 


注意 : 


一 般 情况 下 ， 攻 击 者 编写 的 程序 ， 很 难 识别 验证 码 字 符 ， 从 而 顺利 地 完成 自动 注册 、 
登录 等 操作 ， 而 用 户 则 可 以 识别 填写 ， 因 此 验证 码 就 实现 了 阻挡 网 络 攻 击 的 作用 。 


3. 验证 码 的 程序 原理 

目前 ， 流 行 的 验证 码 实现 原理 如 下 。 

e 服务 器 端 文件 名 : SafeCode .asp。 
e 生成 随机 码 : SafeCode。 

e 将 随机 码 存 入 Session("SafeCode")。 


e 调用 绘图 函数 或 者 直接 写 入 二 进 制图 片 格式 中 ， 在 内 存 中 生成 插入 随机 码 的 图 片 。 


e 客户 端 文件 名 : Login.asp。 
使 用 以 下 代码 可 以 在 客户 端 显示 验证 码 ; 
<form name = forml method = post cation = ChkSafeCode .asp> 
' 定 义 文本 域 ， 并 设置 其 类 型 (type)、 名 称 (name) 和 大 小 (size) 
<input type = "text"name="confirm"size = 10><img sre = "SafeCode.asp"> 
</form> 


e@ 服务 器 端 文件 名 : ChkSafeCode.asp。 
使 用 Request 对 象 的 Form0 方 法 获得 用 户 输入 的 验证 码 ， 比 较 


日 户 输入 的 验证 码 与 服 
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务 器 端 生成 的 验证 码 是 否 相 当 ， 若 相当 就 继续 执行 下 面 的 代码 ， 若 不 相等 则 会 显示 相应 提 
示 内 容 ， 代 码 如 下 : 
ITf Request.Form("confirm")= Session("SafeCode")Then 
Else 
Er=" 验 证 码 输入 错误 ! " 
EndIf 


注意 : 
验证 码 的 基本 实现 原理 就 是 如 上 所 示 ， 其 实 就 是 验证 码 图 片 的 生成 与 校 验 两 个 步骤 。 
但 是 ， 为 了 加 强 验 证 码 的 防 攻击 作用 ， 用 户 还 需要 在 验证 码 图 片 中 生成 干扰 元 素 。 


4. 生成 验证 码 图 像 


常见 的 Web 开发 服务 器 端 技术 中 ,很 多 都 有 绘图 的 应 用 程序 接口 (Application Program 
Interface，APD 函 数 ， 使 用 这 些 函 数 生 成 图 片 非常 简单 。 下 面 将 介绍 在 ASP 中 不 使 用 内 署 
绘图 函数 来 生成 BMP 格式 验证 码 图 片 的 方法 。 

一 个 BMP 文件 的 格式 大 致 分 为 BITMAPFILEHEADER( 图 像 文件 头 )、 
BITMAPINFOHEADER( 图 像 信 息 头 )、PALETTE( 调 色 板 ) 和 ImageDate( 图 像 数 据 )4 部 分 。 

定义 图 像 文件 头 BITMAPFILEHEADER( 它 是 一 个 结构 ) 的 代码 如 下 : 


Typedef struct tagBITMAPFILEHEADER{ 
WORD bfType; 
DWORD bfSize: 
WORD bfReserved1l; 
WORD bfReserved2: 
DWORD bfOffBits: 
}BITMAPFILEHEADER 


以 上 结构 的 长 度 是 固定 的 ， 为 14 字 节 (WORD 为 2 字 节 ，DWORD 为 4 字 节 )， 其 具 
体 说 明 如 下 。 

e@ bfType: 指定 文件 类 型 ， 必 须 是 0x424D， 即 字符 串 BM， 也 就 是 说 所 有 .bmp 文件 
的 头 两 个 字 节 都 是 BM。 

e@ bfSize: 指定 文件 大 小 ， 包 括 14 字 节 。 

@ bfReservedl 与 bfReserved2: 为 保留 字 ， 无 须 考 虑 。 

e bfoffBits: 为 从 文件 头 到 实际 的 图 像 数 据 的 偏 移 字 节 数 ， 也 就 是 图 像 文件 头 、 图 像 
信息 头 和 调 色 板 的 总 长 度 。 

定义 图 像 信息 头 BITMAPINFOHEADER( 它 也 是 一 个 结构 ) 的 代码 如 下 : 


Typedef struct tagBITMAPINFOHEADER{ 
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DWORD biSize; 
LONG biWidth: 
LONG biHeight:; 
WORD biplanes; 
WORD biBitCount: 
DWORD ”biCompression : 
DWORD biSizelmage; 
LONG biXPelsPerMeter:; 
LONG biYPelsPerMeter: 
DWORD biCkrUsed; 
DWORD biClklmportant; 

}BITMAPINFOHEADER 

以 上 结 
字 节 )， 有 具体 说 明 如 下 。 


构 也 是 固定 的 ， 为 40 字 节 (WORD 为 2 字 节 ，DWORD 为 4 字 节 ，LONG 为 4 


biSize: 指定 该 结构 的 程度 ， 为 40 字 节 。 
biWidth: 指定 图 像 的 宽度 ， 其 单位 为 像素 。 
biHeight， 指 定 图 像 的 高 度 ， 其 单位 为 像素 。 


biplanes: 必须 为 1， 无 须 考虑 。 
biBitCount: 指定 表示 颜色 时 要 用 到 
8， 真 彩色 图 像 为 24。 
biSizeImage: 指定 实际 的 图 像 数据 
biYPelsPerMeter: 指定 目标 设备 的 


biBitCount 次 宕 。 


要 的 。 
调 色 板 (PALETTE) 是 一 个 数组 ， 数 组 


的 位 数 ， 一 般 黑白 图 像 为 1，256 色 灰 度 图 像 为 


biCompression: 指定 图 像 是 否 压缩 。 


占用 的 字 节 数 。 


biXPelsPerMeter: 指定 目标 设备 的 水 平分 辨 率 ， 其 单位 是 每 米 的 像素 个 数 。 


垂直 分 辩 率 ， 其 单位 是 每 米 的 像素 个 数 。 


biCkrUsed: 指定 图 像 实际 用 到 的 颜色 数 ， 若 该 值 为 0， 则 用 到 的 颜色 数 为 2 的 


biClImportant: 指定 图 像 中 重要 的 颜色 数 ， 若 该 值 为 0， 则 认为 所 有 的 颜色 都 是 重 


占 4 字 节 。 定 义 调 色 板 的 代码 如 下 : 


Typedef struct tag RGBQUAD { 
BYTE rgbBlue; 
BYTE rgbGreen; 
BYTE rgbRed: 
BYTE rgbReserved: 
}RGBQUAD: 


以 上 结构 的 具体 说 明 如 下 。 


的 每 个 元 素 的 类 型 是 一 个 RGBQUAD 结构 ， 
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e rgbBlue: 颜色 的 蓝 色 分 量 。 
e rgbGreen: 颜色 的 绿色 分 量 。 
e rgbRed: 颜色 的 红色 分 量 。 

e@ ”rgbReserved: 保留 值 。 


注意 : 


有 些 图 像 需 要 调 色 板 ， 而 有 些 图 像 (如 真 彩色 )， 不 需要 调 色 板 。 


对 于 用 到 调 色 板 的 图 像 ， 图 像 数 据 就 是 该 像素 颜色 在 调 色 板 数组 中 的 下 标 值 。 对 于 真 
彩色 ， 图 像 数 据 就 是 实际 的 R、G、B 值 。 下 面 的 内 容 中 使 用 的 是 黑白 2 色 图 ， 因 此 调 色 
板 数组 有 两 个 元 素 : 第 一 个 元 素 的 值 可 以 表示 为 白 ， 即 R 的 值 为 0，G 的 值 为 0，B 的 值 
为 0; 第 二 个 元 素 的 值 表示 为 黑 ， 即 R、G、B 的 值 都 为 255。 

要 在 网 页 或 其 他 图 像 软 件 中 查看 BMP 格式 的 图 像 , 用 户 只 需要 将 BMP 文件 的 4 个 部 
分 一 次 读 出 并 输出 在 要 显示 的 界面 上 即 可 。 下 面 将 介绍 如 何在 图 像 上 生成 验证 码 。 看 下 面 
Letter 数组 元 素 中 1 组 成 的 图 像 ， 可 以 看 出 如 果 图 像 中 将 数组 元 素 中 0 对 应 的 像素 设置 为 
白色 ，1 对 应 的 像素 设置 为 黑色 ， 则 显示 出 的 效果 将 是 数字 0。 


Letter(0) = "00000000000000" 
Letter(1) = "00001111100000" 
Letter(2) = "00011111110000" 
Letter(3) = "00111000111000" 
Letter(4) = "00110000011100" 
Letter(5) = "01110000001100" 
Letter(6) = "01100000001110" 
Letter(7) = "01100000001110" 
Letter(8) = "11100000001110" 
Letter(9) = "11000000001110" 
Letter(10) = "11000000001110" 
Letter(11) = "11100000001110" 
Letter(12) = "11100000001100" 
Letter(13) = "11100000001100" 
Letter(14) = "01100000001100" 
Letter(15) = "01110000011100" 
Letter(15) = "00111000011000" 
Letter(16) = "00011111110000" 
Letter(17) = "00001111100000" 
Letter(18) = "0000000000000" 


如 果 将 其 他 要 在 验证 码 中 显示 的 数字 或 字母 都 用 这 样 的 格式 定义 ， 然 后 依次 在 图 像 中 
显示 ， 则 验证 码 图 像 就 生成 了 。 下 面 来 看 一 个 具体 的 生成 BMP 格式 的 验证 码 的 程序 : 
<% 


Call CreateSafeCode | "调用 CreateSafeCodeO 过 程 
Sub CreateSafeCode 0 "定义 CreateSafeCode0 过 程 


.246。 


'AddHeader0 方 法 用 于 增加 带 有 一 个 要 发 送 到 客户 应 用 程序 的 特殊 的 HITP 头 
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Response.AddHeader "Pragma","no-cache" 
Response.AddHeader "cache-ctrol","no-cache" 
指定 响应 的 HTTP 内 容 类 型 为 "Image/BMP" 
Response.ContentType = "Image/BMP" 

' 生 成 随机 数 ， 因 为 Rad 生成 一 个 小 于 1 但 大 于 或 等 于 0 的 数 ， 所 以 8999*Rnd +1000 得 到 的 


代码 : 


' 随 机 数 为 一 个 四 位 数 
Randomize timer 
SafeCode = cint(8999*Rnd+1000) 


' 将 SafeCode 保存 在 SessionCode("SafeCode") 中 


Session("SafeCode") = SafeCode 
Dim Letter(10,20) 

要 显示 的 字符 "0" 

Letter(0,0) = "0000000000000000" 
Letter(0,1) = "0000111110000000" 
Letter(0,2) = "0001111111000000" 
Letter(0,3) = "0011100011100000" 
Letter(0,4) = "0011000001110000" 
Letter(0,5) = "0111000000110000" 
Letter(0,6) = "0110000000111000" 
Letter(0,7) = "0110000000111000" 
Letter(0,8) = "1110000000111000" 
Letter(0,9) = "1100000000111000" 
Letter(0,10) = "1100000000111000" 
Letter(0,11) = "1110000000111000" 
Letter(0,12) = "1110000000110000" 
Letter(0,13) = "1110000000110000" 
Letter(0,14) = "0110000000110000" 
Letter(0,15) = "0111000001110000" 
Letter(0,15) = "0011100001100000" 
Letter(0,16) = "0001111111000000" 
Letter(0,17) = "0000111110000000" 
Letter(0,18) = "0000000000000000" 
Letter(0.,19) = "0000000000000000" 


"定义 一 个 二 维 数组 ， 保 存 字符 数据 

要 显示 的 字符 "1" 

Letter(1,0) = "0000000000000000" 
Letter(1,1) = "0000000111000000" 
Letter(1,2) = "0000000111000000" 
Letter(1,3) = "0000001110000000" 
Letter(1,4) = "0000001100000000" 
Letter(1,5) = "0000001100000000" 
Letter(1,6) = "0000001100000000" 
Letter(1,7) = "0000011100000000" 
Letter(1,8) = "0000011100000000" 
Letter(1,9) = "0000011100000000" 
Letter(1,10) = "0000011000000000" 
Letter(1,11) = "0000011000000000" 
Letter(1,12) = "0000011000000000" 
Letter(1,13) = "0000011000000000" 
Letter(1,14) = "0000011000000000" 
Letter(1,15) = "0000011000000000" 
Letter(1,16) = "0000011000000000" 
Letter(1,17) = "0000001000000000" 
Letter(1,18) = "0000000000000000" 
Letter(1,19) = "0000000000000000" 


以 上 面 的 代码 为 参考 ， 依 次 编写 显示 3、4、5、6、7、8、9 字符 的 代码 后 ， 


' 显 示 一 个 8 位 的 灰 度 图 
哈 出 图 像 文 件 头 


编写 以 下 


Response BinaryWrite ChrB(66) & ChrB(77) & ChrB(54) & ChrB(9) & ChrB(0) & ChrB(0) & ChrB(0) & 
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(54) & ChrB(4) & ChrB(0) & ChrB(0) 


哈 出 图 像 信息 头 


Response BinaryWrite ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(64) & ChrB(0) & ChrB(0) & 
ChrB(0) & ChrB(20) & ChrB(0) &_ ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0) &ChrB(8) & ChrB(0) & 
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ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(5) & ChrB(0) & ChrB(0) & ChrB(18) & 
ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_ ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & 
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) 
输出 图 像 调 色 板 
fori=0to 255 
Response.Binary Write ChrB(255-i) & ChrB(255-i) & ChrB(255-i) & ChrB(0) 
Next 
"输出 图 像 数据 
For iTempl = 19to 0 step-1 "图 像 的 每 一 行 
ForiTemp2 = l to Len(SafeCode) ”' 图 像 上 显示 的 每 一 个 字 
ForiTemp3 =1to 16 "每 个 字 的 每 一 个 像素 
获得 SafeCode 第 iTemp2 个 字符 ， 保 存在 SafeCodePer 中 
SafeCodePer = Mid(SafeCode.iTemp2.1) 
' 从 字符 数据 Letter 数组 中 找到 SafeCodePer 对 应 的 数组 ， 例 如 1 对 应 
"的 数组 为 Letter(1,0) 到 Letter(1,19),iTemp 指定 具体 的 行 
SafeCodeLetter = Letter(SafeCodePer,iTemp1) 


获得 像素 什 
Pixel = Mid(SafeCodeLetteriTemp3.1)*255 
Response.Binary Write ChrB(pixel) 
Next 
Next 
next 
End Sub 
%> 
验证 码 图 片 生成 结果 
"显示 验证 码 的 文件 ShowCode.asp: 
<html> 
<head> 
<title> 验 证 码 生 成 </title> ' 设 置 网 页 标题 
</head> 
<body> 
<img src = checkcode.asp> ' 显 示 验 证 码 图 片 
</body> 
</html> 


运行 以 上 代码 后 的 效果 ， 如 图 11-2 所 示 。 
司 ShowCodelasp -记事 本 ee | 


文件 (月 ”编辑 (E) 格式 (O) 查看 (V) 者 助 (H) 
<html> 

head> 
《title> 验 证 码 生成 《/title> 
/head> 

Cbody> 

center> 

《img src=CheckCode. asp> 


| Sbody> 
</htmlb 


| 


一 本 下 载 | 梧 站 达 


图 11-2 生成 验证 码 
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注意 : 
上 面 显示 的 是 一 幅 8 位 灰 度 图 像 的 验证 码 图 片 ， 该 图 片 较 简 单 ， 只 是 将 定义 的 数字 显 
示 出 来 ， 若 要 增强 验证 码 的 安全 性 ， 用 户 还 应 在 图 像 中 增加 干扰 元 素 。 


5. 验证 码 中 干扰 元 素 的 加 入 


验证 码 虽然 能 够 有 效 防 止 网 络 攻 击 者 对 用 户 注册 与 登录 系统 的 破解 ， 但 它 并 不 能 完全 
排除 破解 的 可 能 性 。 因 此 ， 要 在 图 片 中 加 入 干扰 元 素 ， 增 加 攻击 者 的 破解 难度 。 在 实际 应 
用 中 ， 干 扰 元 素 主要 分 为 颜色 干扰 和 验证 码 形状 位 置 的 干扰 两 类 。 用 户 可 以 将 以 下 代码 代 
替 文 件 checkcode.asp 中 的 下 面 两 行 代码 ， 即 可 看 到 效果 。 

Pixel = Mid(SafeCodeLetter,iTemp3,1)*255 

Response.Binary Write ChrB(Pixel) 

e 在 图 片 中 加 入 杂 点 像素 : 

Pixel = Mid(SafeCodeLetter,iTemp3,1)*255 


If Rnd*99 + 1<5 Then 5 为 随机 生成 杂 点 的 概率 ， 可 以 修改 
Response.Binary Write ChrB(128) ' 杂 点 的 颜色 为 128 

Else 
Response.Binary Write ChrB(Pixel) 

EndIf 


e 背景 颜色 杂乱 : 
Pixel = Mid(SafeCodeLetter,iTemp3,1)*255 
IfPixel = 0 Then 
Pixel=250*Rnd 。 ' 随 机 生成 的 背景 的 颜色 
End If 
e 字符 颜色 区 别 : 
Pixel = Mid(SafeCodeLetteriTemp3.1)*255 
IfPixel = 255 Then 
Pixel=Rnd*255 "随机 生成 的 字符 的 颜色 
EndIf 
Response.BinaryWrite ChrB(Pixel) 
。 杂 点 像素 位 置 随机 ， 颜 色 随机 : 
Pixel = Mid(SafeCodeLetter,iTemp3,1)*255 


If Rnd*99 + 1<5 Then '5 为 随机 生成 杂 点 的 概率 ， 可 以 修改 
color = Rnd*255 ' 随 机 生成 的 杂 点 的 颜色 
Response.Binary Write ChrB(color) 

Else 
Response.Binary Write ChrB(Pixel) 


EndIf 
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注意 : 
还 有 许多 其 他 的 办 法 ， 例 如 字体 改变 、 位 置 改变 、 长 度 改 变 等 。 本 节 将 不 再 一 一 列举 ， 
总 之 是 要 做 到 颜色 和 形状 位 置 的 随机 改变 。 


11.1.2 ”MD5 数据 加 密 


网 络 中 常见 的 动态 网 站 都 需要 用 户 先 注册 ， 并 在 注册 时 提供 例如 电子 邮件 、 账 号 、 密 
码 等 信息 。 访 问 者 在 成 为 网 站 栏目 的 注册 用 户 之 后 ， 才 可 以 享受 网 站 一 些 特殊 栏目 提供 的 
信息 或 者 服务 ， 如 免费 电子 邮件 、 论 坛 、 聊 天 等 。 对 于 电子 商务 类 网 站 (如 淘宝 、 京 东 等 )， 
用 户 需要 购买 商品 ， 就 一 定 需要 详细 而 准确 地 注册 ， 而 这 些 信息 ， 往 往 是 用 户 很 隐秘 的 信 
息 ， 比 如 电话 、 电 子 邮 件 、 地 址 等 ， 因 此 ， 注 册 信息 对 于 用 户 和 网 站 都 是 很 重要 的 资源 ， 
不 能 随意 透露 ， 更 加 不 能 存在 安全 上 的 隐患 。 

若 用 户 要 利用 ASP 设计 一 个 需要 用 户 注册 的 网 站 , 根据 现在 的 常用 技术 实现 方法 , 可 
以 在 数据 库 中 建立 一 个 用 于 存放 用 户 信息 的 表 ， 该 表 中 至 少 包 括 用 户 账 号 字段 
UserAccount 和 用 户 密码 字段 Password( 当 然 ， 实 际 应 用 中 一 个 用 户 信息 表 不 可 能 就 只 有 这 
些 信息 ， 往 往 会 根据 网 站 服务 要 求 ， 适 当 增加 一 些 其 他 信息 ， 以 方便 网 站 提供 更 加 完善 的 
服务 )。 一 般 情 况 下 ， 一 个 用 户 信息 占用 这 个 用 户 信 息 表 的 一 行 ， 也 就 是 一 个 数据 记录 ， 当 
用 户 登 录 或 者 提交 资料 的 时 候 ， 程 序 将 用 户 填写 的 信息 与 表 中 的 信息 对 照 ， 如 果 用 户 账 号 
和 密码 都 准确 无 误 ， 那 么 说 明 这 个 用 户 是 合法 用 户 ， 通 过 注册 ， 反 之 ， 则 是 非法 用 户 ， 不 
许 通过 。 

然而 ， 这 样 并 没有 达到 安全 的 要 求 。 因 为 保存 在 数据 库 中 的 用 户 资料 没有 进行 任何 的 
保密 措施 ， 对 于 一 些 文件 型 数据 库 ， 如 Access 等 ， 如 果 有 人 得 到 该 文件 ， 那 么 所 有 的 资料 
都 会 泄露 。 更 加 重要 的 是 ， 如 果 一 个 不 负责 任 的 网 管 ， 不 需要 任何 技术 手段 ， 就 可 以 查看 
网 站 中 的 任何 资料 。 所 以 ， 为 了 增加 安全 性 ， 有 必要 对 数据 库 中 的 资料 进行 加 密 ， 这 样 ， 
即使 有 人 得 到 整个 数据 库 ， 如 果 没有 解密 算法 ， 也 一 样 不 能 查看 数据 库 中 的 用 户 信息 。 

目前 ， 有 单 向 加 密 和 双向 加 密 两 种 加 密 方式 可 以 供用 户 选 择 。 双 向 加 密 是 加 密 算法 中 
最 常用 的 ， 它 将 可 以 直接 理解 的 明文 数据 加 密 为 不 可 直接 理解 的 密 文 数据 ， 然 后 ， 在 需要 
的 时 候 ， 可 以 使 用 一 定 的 算法 将 这 些 加 密 以 后 的 密 文 解密 为 原来 可 以 理解 的 明文 。 双 向 加 
密 适 合 于 隐秘 通信 ， 例 如 用 户 在 网 上 购物 时 ， 需 要 向 网 站 提交 信用 卡 密码 ， 用 户 当 然 不 希 
望 自己 的 数据 直接 在 网 上 明文 传送 ， 因 为 这 样 很 可 能 被 别 的 用 户 “ 窍 听 ”， 用 户 希 望 自己 
的 信用 卡 密码 是 通过 加 密 以 后 ， 再 在 网 络 传送 ， 因 此 网 站 接收 到 用 户 的 数据 以 后 ， 通 过 解 
密 算法 就 可 以 得 到 准确 的 信用 卡 账 号 。 

单 向 加 密 刚 好 相反 ， 只 能 对 数据 进行 加 密 ， 也 就 是 说 ， 没 有 办 法 对 加 密 以 后 的 数据 进 
行 解密 。 单 向 加 密 一 般 用 于 数据 库 中 用 户 信息 的 加 密 。 当 用 户 创建 一 个 新 的 账号 或 者 密码 
时 ， 他 的 信息 不 是 直接 保存 到 数据 库 中 ， 而 是 经 过 一 次 加 密 以 后 再 保存 ， 这 样 ， 即 使 这 些 
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信息 被 泄露 ， 也 不 能 立即 理解 这 些 信 息 的 真正 含义 。 

MDS5 就 是 采用 单 向 加 密 的 加 密 算法 。MD5 的 全 称 是 Message-Digest Algorithm 5， 在 
20 世纪 90 年 代 初 由 MIT 的 计算 机 科学 实验 室 和 RSA Data Security Inc 发 明 ， 经 MD2、 
MD3 和 MD4 发 展 而 来 。 

现在 许多 网 站 上 都 使 用 MD5 对 用 户 保 存在 数据 库 中 的 信息 进行 加 密 。 这 主要 是 因为 
MD5 具有 以 下 几 个 很 重要 的 特性 : 

e 任意 两 段 明 文 数据 ， 使 用 MD5 加 密 以 后 的 密 文 不 相同 。 

e 任意 一 段 明 文 数据 ， 经 过 MD5 加 密 以 后 ， 其 结果 永远 不 变 。 

e 使 用 MD5S 加 密 的 数据 破解 非常 不 容易 。 


注意 : 
现在 网 上 MD5 的 ASP 加 密 程序 非常 多 ， 而 且 大 部 分 都 已 经 模块 化 ， 用 户 可 以 把 这 些 
程序 放 到 自己 的 文件 夹 下 ， 然 后 直接 引用 即 可 ， 这 里 将 不 再 具体 列 出 。 


11.1.3 ”表单 验证 的 实现 


在 ASP 应 用 程序 中 , 表单 是 用 来 提交 用 户 输入 信息 的 重要 元 素 , 例如 用 户 登录 或 注册 
时 ， 需 要 输入 用 户 名 和 密码 。 要 保证 用 户 输入 信息 的 合法 性 ， 就 需要 设计 者 在 设计 ASP 程 
序 时 ， 对 用 户 提交 的 表单 信息 进行 验证 。 实 现 表单 的 验证 是 开发 Web 应 用 程序 过 程 中 ， 经 
常会 遇 到 的 问题 。 用 户 可 以 通过 设 定 ， 验 证 表单 的 某 些 项 是 否 填写 ， 适 用 于 何 种 填写 规则 
以 及 是 否 指定 填写 位 数 等 。 表 单 的 验证 一 般 分 为 客户 端 验 证 与 服务 器 验证 两 种 ， 下 面 将 分 
别 进行 介绍 。 

1. 客户 端 验证 

所 谓 客户 端 验 证 指 的 是 通过 编写 JavaScript 或 VBScript 的 表单 验证 函数 ， 在 浏览 器 客 
户 端 实现 表单 验证 的 效果 ， 此 类 验证 方式 一 般 采 用 警告 框 的 形式 ， 填 制 表单 的 用 户 可 以 根 
据 提示 的 内 容 快 速 完成 表单 内 容 的 填写 。 客户 端 验 证 方式 的 优点 是 : 能 够 为 用 户 提供 方便 、 
快速 的 反馈 ， 使 应 用 程序 立刻 作出 响应 ， 给 人 一 种 运行 本 机 桌面 应 用 程序 的 错觉 ， 它 能 节 
省 用 户 的 时 间 并 减少 服务 器 端的 访问 次 数 。 其 缺点 是 : 使 用 客户 端 验证 要 求 用 户 的 浏览 器 
必须 支持 JavaScript 或 VBScript 脚本 ， 而 且 客 户 端 验 证 的 安全 性 较 低 : 

用 户 可 以 参考 下 面 的 CheckO 过 程 在 Web 程序 中 实现 客户 端 验 证 (代码 检查 用 户 是 否 输 
入 用 户 名 和 密码 ， 如 果 没 有 输入 将 显示 相应 的 提示 内 容 ): 


<script language = "VBScript"> "anguage 指定 设置 编程 语言 
function CheckO 
If document.MyForm. UserName.value =" " Then 用户 名 为 空 
window.alert(" 用 户 名 不 能 为 空 ! ") "给 出 提示 


Tetum false 
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EndIf 

If document.MyForm.UserPwd.value =" " Then ' 密 码 为 空 
window-alert(" 密 码 不 能 为 空 ! ") 
Tetum false 

EndIf 

return true 

End Function 
</script> 


2. 服务 器 端 验证 


所 谓 服务 器 端 验证 指 的 是 表单 提交 后 ,使 用 ASP 对 象 Request 的 Form() 方 法 读 取 从 表 
单传 递 过 来 的 数据 进行 验证 , 然后 将 结果 返回 客户 端 , 这 个 验证 过 程 是 在 服务 器 端 进行 的 。 
以 下 代码 可 以 实现 服务 器 端 验 证 : 


<% 
UserName = Trim(Request.form("UserName")) ' 读 取 从 表单 传递 过 来 的 身份 数据 
UserPwd = Request.form("UserPwd") 
ifUserName =" "or UserPwd ="" then ' 用 户 名 或 密码 为 空 


Ermsg = "请 输入 用 户 名 和 密码 " 
给 出 提示 ， 并 返回 前 一 个 页 面 
Response.Write "<script>alert(' "&Errmsg&" "):history.back();</script>" 
Response.End 
EndIf 
%> 


注意 : 

服务 器 端 验证 的 兼容 性 较 好 ， 并 且 能 够 提供 真正 应 用 程序 级 的 安全 ， 是 构建 安全 Web 
应 用 程序 必需 的 ， 不 管 在 客户 端 输入 的 是 什么 数据 ， 它 可 以 确保 客户 端 传 到 服务 器 的 所 有 
数据 都 是 有 效 的 。 但 是 服务 器 端 验证 速度 比较 慢 ， 需 要 将 数据 提交 到 服务 器 端 ， 然 后 再 返 
回 ， 使 用 不 方便 。 因 此 ， 在 Web 应 用 程序 开发 中 ， 一 般 是 将 客户 端 验证 和 服务 器 端 验证 结 
合 起 来 ， 利 用 二 者 的 优点 ， 尽 量 提高 Web 应 用 程序 的 安全 性 。 


11.1.4 检测 表单 内 容 的 合法 性 


用 户 在 设 定 表单 提交 规则 时 ， 可 以 根据 ASP 动态 网 站 的 需求 ,要求 填写 表单 的 用 户 输 
入 一 定 长 度 的 用 户 名 、 密 码 或 E-mail 等 。 网 站 对 用 户 名 (或 密码 ) 长 度 的 检测 与 电子 邮件 格 
式 合法 性 的 检查 ， 属 于 表单 内 容 合法 性 的 检测 范畴 之 内 。 除 此 之 外 ， 表 单 内 容 的 合法 性 检 
测 还 包括 输入 信息 是 否 包 含 某 些 字符 、 是 否 为 数字 或 是 否 为 字母 等 。 
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1. 不 允许 包含 指定 字符 的 检测 


用 户 可 以 参考 以 下 代码 ， 检 测 表单 内 容 ， 并 设 定 不 允许 表单 填写 者 在 填写 表单 时 ， 提 
交 指 定 的 一 部 分 字符 (非法 字符 ): 


<% 
Function Validate(str) 'str 为 要 检测 的 字符 串 
Validate = True "初始 化 
invalid="" 非法 字符 为 室 ， 也 可 以 写 为 其 他 字符 
让 InStr(str,invalid)>0 Then 'str 字符 串 中 存在 invalid 字符 
Validate = False 
EndIf 
End Function 
%> 


2. 电子 邮件 格式 的 合法 性 检测 
用 户 可 以 参考 以 下 代码 ， 检 测 表单 提交 者 提交 的 E-mail 格式 是 否 正确 : 


<% 
Function IsValidEmail(email) ' 定 义 过 程 
Dim names, name, i, ¢ 
IsValidEmail = TRUE "初始 化 


' 使 用 @ 字 符 将 email 字符 串 分 成 几 个 子 字符 串 并 保存 在 names 数组 中 
names = Split(email, "(@") 
"Ubound0 函 数 返回 数组 的 最 大 下 标 ，Ubound(names)<>1 表明 email 字符 串 中 存在 的 @ 字 符 
' 并 不 是 一 个 ， 所 以 email 不 是 有 效 的 邮件 地 址 格式 
If UBound(names) 一 1 Then 
IsValidEmail = FALSE 


Exit Function "跳出 Function 过 程 
End If 
For Each name in names "数组 names 中 的 每 一 个 元 素 
IfLen(name) <= 0 Then 字符 串 name 内 字符 的 数目 
IsValidEmail = FALSE 
Exit Function "跳出 Function 过 程 
EndIf 
Fori= 1 To Len(name) For 循环 


"Mid(name,i,1) 返回 字符 串 name 内 第 i 个 字符 ，LCase0 函 数 将 该 字符 转换 成 小 写 形式 

c=LCase(Mid(name, i, 1)) 

'InStr0 函 数 返回 某 字符 串 在 另 一 个 字符 串 中 第 一 次 出 现 的 位 置 

msStr("abcdefghijklmnopqrstuvwxyz -.", ¢) <= 0 表明 字符 不 在 字符 串 
"abcdefghijklmnopqrstuvwxyz -." 中 

SNumeric(c) 判 断 字符 c 是 否 为 数字 

下 InStr("abcdefghijklmnopqrstuvwxyz -.",¢) <—0_ 


AND NOT IsSNumeric(c) Then ' 不 支持 中 文 格式 地 址 

IsValidEmail = FALSE 

Exit Function "跳出 Function 过 程 
End If 


Next '" 结 束 Forto 循环 
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"eft(name,1) 返 回 字符 串 name 最 左边 一 个 字符 
Right(name,1) 返 回 字符 串 name 最 右边 一 个 字符 
If Left(name, 1) = "." or Right(name, 1)="." Then 
IsValidEmail = FALSE 


Exit Function 中 出 Function 过 程 
EndIf 
Next "结束 For each 循环 
'email 字符 串 中 @ 右 边 部 分 不 包含 字符 "." 


IfInStr(names(1), ".") <—= 0 Then 
IsValidEmail =FALSE 
Exit Function 
EndIf 
'InStrRev0 函 数 返 回 某 字符 串 在 另 一 个 字符 串 中 出 现 的 从 结尾 计 起 的 位 置 
‘InStrRev(names(1), ".") 得 到 字符 "." 在 字符 串 names(1) 中 从 结尾 计 起 的 位 置 
i= Len(names(1))-InStrRev(names(1), ".") 
' 电 子 邮件 最 后 一 般 为 cn 或 com， 长 度 为 2 或 3 


Hi 一 2ANDi 一 3Then 
IsValidEmail =FALSE 
Exit Function 
EndIf 
IfInStr(email, "..") > 0 Then "email 中 存在 字符 串 ".." 
IsValidEmail = FALSE 
EndIf 
End Function 
%> 


3. 表单 内 容 只 能 输入 字母 的 检测 


用 户 可 以 参考 以 下 代码 ， 检 测 表单 内 容 ， 并 设 定 表 单 的 一 部 分 相关 内 容 只 能 输入 英文 
字母 ; 


<% 
Function CheckLetter(str) 'str 为 要 检测 的 字符 串 
CheckLetter = True "初始 化 
Letters = "ABCDEFGHIIKLMNOPQRSTUVWXYZ" ' 初 始 化 
for i=] to len(str) "en0 函 数 返回 字符 串 长 度 
checkchar = UCase(Mid(str,i,1)) 
"Mid(str,i,1) 函数 返回 字符 串 str 第 i 个 字符 ，UCase0 函 数 将 该 字符 转换 为 大 写 形式 
If (InStr(Letters,checkchar)<=0) Then 'checkchar 在 Letters 中 不 存在 
CheckLetter = False 
Exit Function 就 出 Function 过 程 
EndIf 
Next ' 结 束 For 循环 
End Function 


%> 
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11.2 ”用户 管理 系统 简介 


本 节 将 介绍 使 用 验证 码 技术 与 MD5 加 密 技术 实现 一 个 相对 安全 的 用 户 管理 系统 及 与 


该 系统 配套 的 一 个 月 


登录 用 户 的 身份 ， 赋 予 用 户 不 同 的 管理 权限 的 功能 


用 户 管理 系统 设置 一 个 默认 的 “系统 管理 员 ”， 由 网 站 设计 人 员 添 加 到 数据 库 中 ， 
赋予 其 以 下 权限 : 

e 管理 员 登 录 。 

e 密码 修改 。 

e 普通 权限 用 户 添加 。 

e 普通 权限 用 户 信 息 修改 。 

e 普通 权限 用 户 删除 。 

e 退出 登录 。 

用 户 管理 系统 赋予 普通 用 户 以 下 权限 : 

e 普通 用 户 登 录 。 

e 修改 个 人 密码 。 

e 退出 登录 。 

另外 ， 用 户 管理 系统 还 能 够 检测 用 户 输入 信息 的 合法 性 。 


综 上 所 述 ， 用 户 管理 系统 所 要 实现 的 功能 


用 户 登录 界面 


管理 员 Admin 


管理 员 系统 界面 


普通 权限 用 户 


用 户 系统 界面 


用 户 管理 界面 


管理 员 可 以 对 普通 用 户 进行 管理 


图 11-3 系统 功能 结构 图 


b 


日 户 登录 程序 。 设 计 一 个 ASP 网 站 的 用 户 管理 系统 ， 并 且 能 够 实现 根据 


并 


及 各 功能 相互 之 间 的 关系 ， 如 图 11-3 所 示 。 
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11.2.1 数据 库 设 计 


本 节 实 例 所 介绍 的 用 户 管理 系统 采用 Access 


数据 库 。 由 系统 的 结构 可 以 看 出 ,本 系统 


只 使 用 一 个 Users 数据 表 即 可 ， 如 表 11-1 所 示 。 
表 11-1 数据 表 结 构 

字 段 说 了 明 
ID 号 
UserName 用 户 的 登录 名 称 
UserPwd 用 户 的 登录 密码 
Ename 用 户 姓名 
E-mail 用 户 的 电子 邮箱 
11.2.2 ”系统 文件 简介 


通过 系统 功能 结构 图 可 以 看 出 ， 本 节 实 例 将 主要 由 以 下 文件 组 成 。 


e ”ChkPwd.asp 文件 ， 该 文件 要 求 用 户 输入 用 户 名 、 密 码 和 验证 码 ， 完 成 用 户 登录 。 

eindex.asp 文件 ， 该 文件 为 系统 主 界面 文件 ， 根 据 用 户 的 权限 显示 不 同 的 操作 。 

e@ UserListasp 文件 : 该 文件 为 已 添加 用 户 显示 文件 。 在 该 文件 中 ， 还 可 以 添加 用 户 、 
修改 或 删除 已 添加 用 户 。 

e@ UserAdd.asp 文件 ， 该 文件 完成 用 户 的 添加 。 

@ UserEditasp 文件 ， 该 文件 完成 已 添加 用 户 的 信息 修改 。 

e@ ”UserSave.asp 文件 :该 文件 完成 用 户 添 加 和 用 户 信息 修改 时 的 数据 保存 工作 。 

e UserDel.asp 文件 : 该 文件 完成 用 户 的 删除 。 

e。 PwdChange.asp 文件 : 该 文件 完成 用 户 密码 的 修改 。 

e SavePwd.asp 文件 ， 该 文件 完成 用 户 新 密码 在 数据 库 中 的 保存 。 

e Logout.asp 文件 :该 文件 为 用 户 退 出 登录 文件 。 

e 公共 文件 : 包括 conn.asp 文件 (完成 与 数据 库 的 连接 )、md5.asp 文件 (完成 用 户 密码 
的 加 密 ) 以 及 procedure.asp 文件 (该 文件 中 包含 邮件 地 址 格式 确认 和 用 户 名 是 否 在 
数据 库 中 已 存在 这 两 个 过 程 )。 

注意 : 


在 用 户 管理 系统 中 ， 除 了 以 上 几 个 主要 文件 外 ， 还 包括 function.asp、safecode.asp、 
canvas.asp 和 font.asp 文件 ， 这 4 个 文件 完成 用 户 登 录 时 验证 码 的 生成 与 显示 。 
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蒿 压 束 


11.3 设计 用 户 管理 系统 


一 个 最 基本 的 用 户 管理 系统 ， 包 括 用 户 注册 模块 、 用 户 登 录 模 块 、 系 统 主 界面 、 用 户 


理 模 块 、 添 加 用 户 模块 (管理 员 )、 修 改 用 户 模块 (管理 员 )、 删 除 用 户 模块 (管理 员 ) 以 及 退 


户 模块 等 部 分 。 下 面 将 根据 本 章 实例 的 要 求 ， 逐 步 介绍 设计 用 户 管理 系统 所 设计 的 各 


块 页 面 的 方法 与 步骤 。 


11.3.1 系统 主 界面 


本 节 实 例 所 介绍 的 用 户 管理 系统 的 主 界面 (Index.asp 文件 )， 如 图 11-4 所 示 。 


[Ba | + 10 * Le 
2 四 六 天 9 本 窜 田 [加 "| 图 coogk aja 


jj 心 下 匿 | 及 内 


3 加 下 覆 | 入 闪避 马 " 


输入 用 户 名 和 密码 显示 输入 错误 
图 11-4 用 户 管理 系统 主 界面 


Index.asp 文件 的 代码 如 下 : 


<!--#include file = "ChkPwd.asp" -> 


<h2 align = "center" > 用 户 管理 及 用 户 登录 系统 </h2> ' 定 义 文章 题目 
<hr> 
<center> 
<script language = "VBScript" > 
Function newwin(url) ' 定 义 newwin0 过 程 


"使 用 window 的 open0 方 法 打开 一 个 窗口 ， 该 窗口 指定 大 小 ， 并 且 大 小 可 变 
' 该 窗口 没有 状态 栏 。' 地 址 栏 、 菜 单 和 ' 工 具 栏 ， 窗 口中 显示 的 内 容 由 url 指定 
newwin = window.open (url, " newwin ","toolbar = no,location = no, 
directories = no,status = no,menubar = no,scrollbars = yes， 
Tesizable = yes,width = 400,height = 380") 
newwin.focus() 
Tetum false 
End Function 
</script> 
<% 
"和 如果 登 录 成 功 ， 则 根据 用 户 名 称 决定 显示 内 容 
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If Session("Passed" ) = True Then 
'Session("UserName") 中 为 当前 登录 用 户 的 用 户 名 
response.write(" 登 录 成 功 ，"&Session("UserName")&", 欢迎 光临 <br><br><br><center>") 
fsession("UserName") = "Admin" then ' 当 前 登录 用 户 为 Admin 
Response.write("<a href = UserList.asp> 用 户 管理 </a>| _ 
<a href = pwdchange.asp?UserId="&Session("Id")&" _ 
onclick ==" "Teturn newwin(this hrep" "> 修改 密码 </a>| 
<a href = logout.asp> 退 出 登录 </a>") 
else ' 当 前 登录 用 户 为 普通 用 户 
response.write("<a href = pwdchange.asp?UserId="&Session("Id")&" _ 
onclick =" "retum newwin(this hreb" "> 修改 密码 </a>| 
<a href= logout.asp> 退 出 登录 </a>") 
endif 
endif 
%> 
</body> 
</html> 


以 上 程序 代码 的 运行 过 程 如 下 所 示 。 

(1) 使 用 代码 <!--#include file = "ChkPwd.asp"--> 防 止 未 经 登录 的 用 户 打 开 该 网 页 。 

(2) 车 用 户 登 录 成 功 ( 即 Session("Passed") = True)， 则 显示 欢迎 信息 ， 并 根据 用 户 名 判 
断 用 户 的 权限 ， 显 示 不 同 的 用 户 界面 。 


11.3.2 ”用 户 注册 模块 


用 户 注册 模块 一 般 由 客户 端 用 户 填写 部 分 与 服务 器 端 表 单 验证 部 分 两 部 分 组 成 。 本 例 


中 ， 用 户 注册 模块 的 客户 端 部 分 由 register.asp 文件 实现 ， 其 界面 如 图 11-5 所 示 。 


他 saNRaNERB2R < | + 
沪 窑 四 [192168177/regstt6 合 。 加 


图 11-5 用 户 注册 界面 


register.asp 文件 界面 包含 一 个 表单 MyForm， 该 表单 的 定义 如 下 。 

(1) 当 用 户 输入 信息 ， 单 击 “ 提 交 ” 按 钮 后 ， 表 单 提交 的 数据 将 在 verify.asp 文件 中 进 
行 处 理 。 

(2) 在 verify.asp 文件 中 ， 首 先 判断 用 户 名 、 密 码 和 电子 邮件 是 否 填写 ， 然 后 判断 三 者 
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的 格式 是 否 正确 ， 如 果 不 正确 将 返回 到 注册 页 面 ， 正 确 会 提示 用 户 输入 正确 。 
verify.asp 文件 的 表单 处 理 代码 如 下 : 


<% 


UserName = Trim(Request.form("UserName")) ”' 读 取 从 表单 传递 来 的 用 户 名 数据 
UserPwd = Request("UserPwd") ' 读 取 从 表单 传递 来 的 用 户 密码 数据 
Email = Request Form("Email") 
' 用 户 输入 的 信息 至 少 有 一 项 为 空 
If UserName =" "or UserPwd =" "or Email ="" then 
提示 用 户 ， 并 返回 到 用 户 注册 页 面 
Response.Write"<script>alert( 未 填写 完全 ! '):history.back0;</script>" 
Response.End 
ElseIf Not CheckLetter(UserName)Then 输入 的 用 户 名 存在 非法 字符 
提示 用 户 ， 并 返回 到 用 户 注册 页 面 
Response.Write"<script>alert( 输 入 的 用 户 名 没有 全 部 是 大 写 或 小 写字 母 !");_ 


history.back();</script>" 
Response.End 

ElseIfNot IsNumeric(UserPwd)Then 输入 的 密码 为 非 数 字 
Response.Write"<script>alert( 输 入 的 密码 为 非 数 字 ! ); history.back0;</script>" 
Response.End 

Elself Not IsValidEmail(Email)Then 输入 的 电子 邮件 格式 不 正确 


提示 用 户 ， 并 返回 用 户 注册 页 面 


Response.Write"<script>alert( 输 入 的 电子 邮件 地 址 格式 不 正确 ! ):history.backO:;</script>" 


Response.End 
Else 

Response.Write"<center> 输 入 正确 !" 
EndIf 


%> 


注意 : 
以 上 包含 两 个 过 程 ， 即 CheckLetter0 过 程 和 IsValidEmail() 过 程 。CheckLetter0 过 程 检 
查 输入 的 用 户 名 是 否 全 是 字母 ，IsValidEmail0) 过 程 检查 输入 的 电子 邮件 格式 是 否 正确 。 


11.3.3 ”用 户 登 录 模 块 


用 户 登录 模块 是 用 户 在 登录 网 站 时 ， 用 户 管理 系统 首先 显示 的 页 面 。 本 例 中 


模块 


b 


j 户 登录 


ChkPwd.asp 文件 实现 ， 其 界面 如 图 11-6 所 示 。 在 ChkPwd.asp 文件 中 ， 为 了 保证 用 户 


登录 后 , 不 再 重复 显示 登录 窗口 , 设置 了 一 个 Session 变量 Passed。 如 果 Session(Passed) = True， 


表示 上 


户 已 经 登录 成 功 ， 反 之 ， 若 Session(Passed) = False， 表 示 用 户 还 没有 登录 ， 则 显示 
用 户 登 录 窗 口 。 
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图 11-6 用 户 登 录 界 面 


ChkPwd.asp 文件 的 界面 上 包含 表单 MyForm, 该 表单 用 于 输入 用 户 名 、 密码 和 验证 码 ， 
其 定义 语句 如 下 : 


‘request.servervariable("PATH_INFO") 获 得 该 文件 的 虚拟 路 径 
'ChkFields() 过 程 检查 

' 用 户 名 、 密 码 和 验证 码 是 否 输 入 

<form method = "post" action ="<%=request.servervariables("PATH INFO")%>"_ 
name = "MyForm" onsubmit = "retum ChkFields0"> 


在 用 户 登 录 界 面 表单 内 ， 定 义 输入 用 户 名 的 文本 域名 称 为 UserName， 输 入 密码 的 文 
本 域名 称 为 UserPwd， 输 入 验证 码 的 文本 域名 称 为 confirm。 程 序 运行 时 ， 调 用 function.asp 
文件 中 的 GetSafeCode0 过 程 生成 并 在 页 面 上 显示 验证 码 图 片 。 由 上 面 的 定义 语句 可 以 看 
出 ， 表 单 被 提交 后 ， 将 首先 使 用 ChkFieldsO 过 程 检查 用 户 是 否 输入 完全 ， 然 后 再 将 表单 数 
据 提 交 到 该 文件 中 处 理 。 

ChkPwd.asp 文件 的 代码 如 下 : 


<!--#include file = "conn.asp"--> 
<!--#include file = "md5.asp"--> 
<!--#include file = "function.asp"--> 
<% 
"如 果 尚 未 定义 Passed 对 象 ， 则 将 其 定位 为 false， 表 示 没 有 通过 身份 认证 
if IsEmpty(Session("Passed")) then 
Session("Passed") = False 
Endif 
' 如 果 Session("Passed") = False， 表 示 没 有 通过 身份 认证 
HfSession("Passed") = False then 
' 读 取 从 表单 传递 过 来 的 身份 数据 
UserName = Trim(Request.form("UserName")) 
UserPwd = Request.form("UserPwd") 
1f UserName =" " or UserPwd =" "then "用户 名 或 密码 没有 输入 
Emmsg = "请 输入 用 户 名 和 密码 " "错误 信息 
Else 
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NumericO 函 数 判断 是 否 为 数字 
If not IsNumeric(Request.Form("confirm")) Then 
Response.Write "<script>alert( 你 输入 的 验证 码 为 非 数 字 ! "); </script>" 
Response.End 
EndIf 
5 判断 程序 生成 的 验证 码 与 用 户 输入 的 验证 码 是 否 一 致 ， 如 果 一 致 ， 则 执行 下 面 的 代码 
If (int(Session("SafeCode"))=int(Request.Form("confirm"))) Then 
' 创 建 RecordSet 对 象 
set rs = server.createobject("adodb.recordset") 
' 从 数据 库 中 查找 UserName 列 的 值 为 UserName 的 记录 
sql = "Select * from users where UserName ="' "&UserName&"'" 


Is.open sql,conn,1,3 执行 查找 操作 
if rs.EOF then ' 不 存在 满足 条 件 的 记录 
Ermsg = "用 户 不 存在 " "错误 信息 
conn.Close "关闭 数据 库 连 接 
Set conmn =nothing 
Else 
' 用 户 输入 的 密码 错误 


if md5(UserPwd)<—>rs.Fields("UserPwd") then 
Ermsg = "密码 不 正确 " 


conn.Close "关闭 数据 库 连接 
Set conn = nothing 

else ' 用 户 登 录 成 功 
Emmsg="" 


"将 Session 变量 Passed 置 为 True， 表 示 用 户 通过 身份 认证 
Session("Passed") = True 
' 将 当前 登录 的 用 户 名 保存 在 Session 变量 UserName 中 
Session("UserName") = rs.Fields("UserName) 
将 当前 登录 用 户 的 id 保存 在 Session 变量 Id 中 
Session("Id") =s.Fields("Id") 
endif 
endif 
Else 
程序 生成 的 验证 码 与 用 户 输入 的 验证 码 不 一 致 
Enmsg= "验证 码 输入 错误 ! " 


EndIf 
endif 

endif 

if Not Session("Passed") then "用 户 没有 通过 身份 认证 
%> 
<html> 

<head> 

<title> 输 入 用 户 名 和 密码 </tile> "设置 网 页 标题 


</head> 
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<body> 
<script language = "VBScript"> 
function ChkFields() "定义 过 程 ， 检 查 用 户 输入 情况 
ITf document.MyForm.UserName.value =" " Then ' 用 户 名 没有 输入 
window.alert(" 输 入 用 户 名 ! ") 给 出 提示 
return false 
EndIf 
IfdocumentMyYForm UserPwd value =" " Then ' 用 户 密码 没有 输入 
window.alert(" 和 输入 密码 ! 给 出 提示 
Teturn false 
EndIf 
If document.MyForm.confirm.value ="" Then ' 验 证 码 没有 输入 
window.alert(" 输 入 验证 码 !") 给 出 提示 
Tetum false 
EndIf 
Tetum true 
End Function 
</script> 


<p align = "center"><font color = "#0000fP' size = 5 > 用 户 登录 模块 </font></p> 

<p align = "center"><font color = "#800000"> 

<%=Ermsg%> ' 显 示 错误 信息 
</font></p> 

生成 表单 ， 并 设置 其 信息 传递 的 方式 (method)、 动 作 (action)、 名 称 (name) 和 提交 处 理 (onsubmit) 
<form method = "post" action ="<%=request.servervariables_ 

("PATH INFO")%>" name = "MyForm" onsubmit = "return ChkFields()"> 

<center> 

"生成 表格 

<table border="0" width="40%"> 

<tr> 

<td width="27%" bgcolor="# ffffff " align="center"> 

<font size="2"> 用 户 名 : </font> 

</td> 

<td width="73%"> 

生成 文本 域 ， 并 定义 其 类 型 (type)、 名 称 (name) 和 大 小 (size)， 该 文本 域 用 于 输入 用 户 名 
<input type = "text" name = "UserName" size = 20> 

</td> 

</t> 

<tr> 

<td width="27%" bgcolor=" ffffff " align="center"> 

<font size="2"> 密 &nbsp;&nbsp; 码 : </font> 

</td> 

<td width="73%"> 

生成 文本 域 ， 并 定义 其 类 型 (type)、 名 称 (name) 和 大 小 (size)， 该 文本 域 用 于 "输入 用 户 登 录 密 码 
<input type = "password" name = "UserPwd" size = 20> 
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<td width="27%" bgcolor="# ffffff " align="center"><font size="2"> 验 证 码 : </font> 
</td> 

<td width="73%"> 

"生成 文本 域 ， 并 定义 其 类 型 (type)、 名 称 (name) 和 大 小 (size)， 该 文本 域 用 于 输入 验证 码 
<input type = "text" name = "confirm" size = 10> 

<%call GetSafeCode()%> 

</td> 

</tr> 

</table> 

<p align = "center"> 

' 生 成 按钮 

<input type= "submit" value = "提交 " name= "Bl">&nbsp:&nbsp; 

<input type = "reset" value = " 重 置 " name = "B2"></p> 

</form> 

<p align = "center"></p> 

<body> 


%> 


以 上 程序 代码 的 运行 过 程 如 下 所 示 。 

(1) 使 用 代码 <!--#include file = "conn.asp"--> 连 接 数 据 库 。 

(2) 使 用 代码 <!-- 贞 nclude file = "md5.asp"--> 包 含 文件 md5.asp， 定 义 了 md50 过 程 。 

(3) 使 用 代码 <!--#include file = "function.asp"--> 包 含 文件 functionasp ， 定 义 了 
GetSafeCode0O 过 程 。 

(4) 判断 Session(Passed) 的 值 ， 如 果 为 空 ， 表 示 第 一 次 登录 ， 则 将 其 设置 为 False， 表 

(5) 如 果 Session(Passed) = False， 表 示 没 有 登录 ， 因 此 需要 进行 身份 认证 。 

(6) 从 表单 MyForm 中 读 取 用 户 名 和 密码 数据 到 变量 UserName 和 UserPwd 中 。 若 
UserName 和 UserPwd 为 空 ， 则 使 用 HTML 代码 生成 登录 界面 ， 要 求 用 户 输入 用 户 名 和 密 
码 登录 。 

(7) 如 果 UserName 和 UserPwd 不 为 空 ， 则 首先 判断 用 户 输入 的 验证 码 是 否 为 数字 、 
是 否 正确 。 

为 了 防止 未 登录 的 用 户 进入 指定 的 网 页 ， 用 户 可 以 在 具有 权限 控制 的 网 页 开始 部 分 添 
加 以 下 代码 : 
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<!--#include file = "ChkPwd .asp"--> 


这 样 每 次 打开 网 页 时 ， 都 会 首先 执行 ChkPwd.asp 文件 。 在 ChkPwd.asp 文件 中 ， 会 先 
判断 Session 变量 Passed 的 值 ， 如 果 为 True， 则 不 执行 任何 操作 ， 直 接 进 入 指定 的 页 面 。 
如 果 为 False， 则 表示 当前 用 户 没有 经 过 身份 认证 ， 此 时 ChkPwd.asp 将 显示 登录 界面 ， 要 
求 用 户 登 录 。 


注意 : 


使 用 以 上 方法 ， 用 户 就 不 需要 在 其 他 的 网 页 中 编写 判断 用 户 是 否 登录 的 代码 了 。 


11.3.4 ”限制 一 般 用 户 权限 


用 户 管理 系统 的 作用 不 仅 要 通过 ChkPwd.asp 文件 防止 未 登录 的 网 络 用 户 访问 网 站 的 
特定 页 面 ， 还 需要 防止 已 登录 的 一 般 用 户 访问 用 户 权 限 以 外 的 网 站 页 面 (如 管理 员 页 面 )。 
因此 ， 在 设计 用 户 管理 系统 时 ， 用 户 需 要 通过 设 定 限 制 一般 用 户 的 权限 ， 有 具体 代码 如 下 : 

<% 

'Session("UserName") 中 为 用 户 登 录 时 输入 的 用 户 名 。 用 户 名 不 是 Admin 


If Session("UserName") 一 "Admin" Then 
给 出 提示 ， 并 返回 到 前 一 个 页 面 
Response.Write "<script>alert(' 非 系统 管理 员 ， 没 有 此 权限 ! '); history.backO</script>" 
Else 
有 ' 用 户 名 是 Admin， 则 显示 相应 的 网 页 
EndIf 
%> 


注意 : 

使 用 以 上 代码 ， 当 登录 的 用 户 在 正 浏 览 器 中 打开 包含 上 述 代码 的 文件 时 ,会 首先 检查 
Session("UserName") 中 的 值 是 否 为 Admin， 若 发 现 不 是 ， 则 提示 用 户 “ 非 系统 管理 员 ， 没 
有 此 权限 ”， 然 后 返回 到 前 一 个 页 面 。 


11.3.5 ”用 户 管理 模块 


用 户 管理 模块 的 作用 是 为 管理 员 提供 一 个 管理 用 户 的 界面 ， 本 节 实 例 所 介绍 的 用 户 管 
理 模块 界面 ， 如 图 11-7 所 示 。 
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图 11-7 用 户 管理 界面 


在 用 户 管理 界面 中 ， 用 户 可 以 通过 单 击 “用 户 管理 ” 超 链接 ， 将 打开 UserList.asp 文 
件 。 在 该 文件 的 用 户 列表 中 ， 列 出 了 数据 库 中 所 有 的 用 户 记录 。 每 条 记录 包括 用 户 名 、 用 
户 姓名 、 电 子 邮 箱 和 修改 、 删 除 操作 。 在 用 户 列表 的 下 面 ， 有 一 个 “添加 用 户 信息 ” 超 链 
接 。 用 户 管理 模块 的 具体 代码 如 下 : 


<!--#include file= "ChkPwd.asp"--> 
<% 

IfSession("UserName") 一 "Admin" Then ' 登 录 的 用 户 不 是 Admin,' 给 出 提示 ， 并 返回 前 一 页 
Response.Write "<script>alert( 您 不 是 系统 管理 员 ， 没 有 此 权限 ! "); history.backO</script>" 
Session("Passed") = False 

Else 

%> 

<html> 

<head> 

<title> 系 统 用 户 管理 </title> "设置 网 页 标题 

<script language = "vbscript"> 

Function newwin(url) ' 定 义 newwin0 过 程 

"使 用 window 的 open0 方 法 打开 一 个 窗口 ， 该 窗口 指定 大 小 ， 并 且 大 小 可 变 ， 没 有 状态 栏 、 

地 址 栏 、 菜 单 和 工具 栏 ， 窗 口中 显示 的 内 容 由 url 指定 

newwin = window.open(url,"newwin","toolbar=no,location=no,， 

directories=no,status=no.menubar=no,scrollbars=yes， 

resizable=yes,width=400,height=380") 

newwin.focus() 

Tetum false 

End Function 

</script> 

</head> 

<body link = #000080 vlink =#008080> 
<h3></h3> 

<h2 align=center> 用 户 列表 </h2> 


第 11 章 “ASP 综合 开发 实例 一 一 用 户 管理 系统 


<table width = 90% align = center cellspacing = 1 cellpadding = 2 border=]_ 
bordercolor=#808080 bordercolordark=#FFFFFF bordercolorlight=#E1FSFF> 
<tr> 
<td align=center width=20% bgcolor=#E1F5FF><b> 用 户 名 </b></td> 
<td align=center width=20% bgcolor=#E1F5FF><b> 用 户 姓名 </b></td> 
<td align=center width=20% bgcolor=# 丰 1F5FF><b> 电 子 邮 箱 </b></td> 
<td align=center width=20% bgcolor=#E1F5FF><b> 操 ” 作 </b></td> 
</t> 
<% 

' 定 义 RecordSet 对 象 

Set rs = Server.CreateObject("ADODB.RecordSet") 

Is.Open "Select * from Users Order by Id",conn,1,3 

ICount =Is.RecordCount 

"循环 显示 所 有 的 用 户 数据 ， 同 时 画 出 表格 


Do While Not rs.EOF 
%> 
<t> 
<td><%=rs("UserName")%></td> ' 用 户 名 
<td><%=rs("Ename")%></td> "用 户 姓名 
<td><%=rs("Email")%></td> ' 用 户 Email 


<td align=center> 
' 建 立 到 用 户 修改 的 超 链接 
<a href=UserEdit.asp?userid=<%=rs("Id")%> _ 
onclick="return newwin(this.hre 人 "> 修改 </a> 
<%If rs("UserName")<—>"Admin" Then%> ' 用 户 名 不 是 "Admin" 
"建立 到 用 户 删 除 的 超 链接 
<a href=UserDel.asp?userid=<%=rs("Id")%> _ 
onclick="returm newwin(this.hre 人 "> 删除 </a></td> 
<%End I®6> 
</tr> 
<% 
rs.MoveNext 牧 向 下 一 条 记录 
Loop 
IfrCount=0 Then "没有 用 户 记 录 
Response.Write("<tr align=center><td colspan=6> 
<font color=red> 目 前 没有 用 户 记录 </font></td></tr>") 
Else ' 窒 在 用 户 记录 
Response. Write("<tr align=center><td colspan=6> 
<font color=red> 当 前 共有 "&Trim(rCount)&" 条 用 户 记录 </font></td></tr>") 
EndIf 
%> 
</table> 
<br> 牧 行 
添加 用 户 信 息 的 超 链 接 
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<p aligen=center><a hre 全 UserAdd asp> 添 加 用 户 信息 </a></p> 
</body> 
</html> 
<% 
EndIf 
%> 


以 上 程序 代码 的 运行 过 程 如 下 所 示 。 

(1) 使 用 <!--#include file= "ChkPwd.asp"--> 防 止 未 经 登录 的 用 户 打开 该 网 页 。 

(2) 判断 用 户 是 否 是 系统 管理 员 Admin， 如 果 不 是 ， 将 给 出 提示 ， 并 返回 到 前 一 页 。 
如 果 是 ， 显 示 该 页 。 

(3) 使 用 HTML 代码 画 出 表 头 ， 包 括 用 户 名 、 用 户 姓 名 、 电 子 邮 箱 和 操作 。 

(4) 读 取 数 据 库 中 所 有 用 户 的 记录 。 

(5) 使 用 Do While 语句 依次 读 取 用 户 数据 ， 并 以 表格 的 形式 显示 出 来 。 在 表格 每 一 行 
的 最 后 单元 格 中 显示 对 本 行 用 户 记 录 的 操作 , 包括 “修改 5 和“ 删除”。 如 果 用 户 名 为 Admin， 
则 只 有 “修改 ”操作 。 

(6) 使 用 rs.RecordCount 读 取 记 录 数 量 ， 并 显示 在 表格 的 下 面 。 

(7) 建立 “添加 用 户 信息 ”超级 链接 ， 链 接 到 UserAdd.asp 文件 。 


注意 : 
在 用 户 管理 模块 的 文件 代码 中 ， 定 义 了 一 个 newwin0 过 程 ， 它 能 够 生成 并 打开 一 个 指 
定 样式 、 指 定 大 小 的 窗口 ， 并 在 该 窗口 中 显示 指定 的 界面 内 容 。 


11.3.6 ”添加 用 户 模块 


添加 用 户 模块 的 作用 是 在 用 户 管理 界面 UserList.asp 中 提供 一 个 可 以 允许 管理 员 添加 
用 户 的 界面 (由 UserAdd.asp 文件 实现 ), 本 节 实 例 所 介绍 的 添加 用 户 模块 界面 , 如 图 11-8 所 示 。 
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图 11-8 添加 用 户 界面 
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在 UserAdd.asp 文件 中 ,包含 表单 myfornm， 用 于 填写 用 户 信息 ， 该 表单 的 定义 语句 如 


下 所 示 : 


<form method = "post" action = "UserSave.asp " name = "myform" onsubmit = "return ChkFieldsO0"> 

在 添加 用 户 界面 的 表单 中 ， 定 义 输入 用 户 名 的 文本 域名 称 为 UserName， 输 入 用 户 姓 
名 的 文本 域名 称 为 Ename， 输 入 用 户 密码 的 文本 域名 称 为 Pwd， 输 入 确认 密码 的 文本 域名 
称 为 Pwdl， 输 入 电子 邮箱 的 文本 域名 称 为 Email。 另 外 ， 在 表单 myform 中 ， 还 定义 了 隐 
藏 域 lag， 用 来 标识 当前 操作 是 添加 用 户 操作 还 是 修改 用 户 操作 。 通 过 以 上 代码 可 以 看 出 ， 


当 管理 员 输 入 用 户 信息 ， 并 单 击 “ 提 交 ” 按 钮 后 ， 表 单 了 


的 数据 首先 在 ChkFieldsO 过 程 中 


检查 其 合法 性 ， 然 后 将 数据 提交 到 服务 器 端 ， 在 UserSave.asp 文件 中 处 理 。ChkFieldsO 过 


程 的 代码 如 下 : 


<script language = "VBScript"> 
Function ChkFields() 

if document.myform.UserName.value =" " Then 
window.alert(" 请 输入 用 户 名 ") 
myform.UserName.focus() 
Teturn false 

EndIf 

' 用 户 名 长 度 太 小 

if document.myform.UserName.value.Length <= 6 Then 
window.alert(" 请 用 户 名 长 度 必须 大 于 2! ") 
myform.UserName.focus() 
Teturn false 

EndIf 

if document.myform.Pwd.value.Length <= 6 Then 
window.alert(" 新 密码 长 度 大 于 6") 
myform.UserName.focus() 
Teturn false 

EndIf 

if document.myform.Pwd.value =" " Then 
window.alert(" 请 输入 新 密码 ") 
myform.UserName.focus() 
Teturn false 

EndIf 

if document.myform.Pwdl.value =" " Then 
window.alert(" 请 确认 新 密码 ") 
myform.UserName.focus() 
retum false 

EndIf 


' 用 户 名 没有 输入 
给 出 提示 
"将 用 户 名 文本 框 设 为 输入 焦点 


给 出 提示 
"将 用 户 名 文本 框 设 为 输入 焦点 


密码 长 度 小 于 6 
给 出 提示 
"将 用 户 名 文本 框 设 为 输入 焦点 


密码 没有 输入 
给 出 提示 
' 将 用 户 名 文本 框 设 为 输入 焦点 


' 确 认 密码 没有 输入 
给 出 提示 
"将 用 户 名 文本 杠 设 为 输入 焦点 


"两 次 输入 的 密码 不 相同 


1f document.myform.Pwd.value 一 document.myform Pwdl.value Then 
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window.alert(" 两 次 输入 的 新 密码 必须 相同 ") ' 给 出 提示 
myform.UserName.focus() 将 用 户 名 文本 框 设 为 输入 焦点 
Tetum false 
EndIf 
Tetum true 
End Function 
</script> 


在 UserSave.asp 文件 中 处 理 用 户 信 息 添加 的 代码 如 下 : 


Dim sql,UserName,UserPwd,Ename,Email "定义 变量 
' 从 表单 中 读 取 用 户 名 数据 ， 使 用 Trim0 函 数 去 掉 字符 串 前 后 的 空格 后 ， 
将 字符 串 保 存 到 变量 UserName 中 


UserName = Trim(Request.Form("UserName")) 
' 从 表单 中 读 取 密码 数据 ， 使 用 Trim0 函 数 去 掉 字 符 串 前 后 的 空格 后 ， 


将 字符 串 保 存 到 变量 UserPwd 中 
UserPwd = Trim(Request.Form("Pwd")) 
Ename = Request.Form("Ename") ' 读 取 用 户 姓 名 数据 
Email = Request.Form("Email") ' 读 取 用 户 电子 邮箱 数据 


"如 果 flag 域 的 值 为 new， 表 示 添 加 数据 ， 否 则 表示 修改 数据 
If Request.Form("flag") = "new" Then 
判断 此 用 户 是 否 存 在 
Set HVrs = Server.CreateObject("ADODB.RecordSet") 
' 从 数据 库 中 查询 UserName 列 的 值 为 UserName 的 记录 
sql = "Select * from users where UserName ="' "&UserName&"'" 
执行 查询 ， 并 将 结果 保存 在 HVrs 中 
HVrs.Open sql,conn,1,3 


If Not HVrsEOF Then ' 不 存在 满足 条 件 的 记录 
Response.Write "<script>alert( 已 经 存在 此 用 户 名 ): history.backO:</script>" 
Response.End 

Else "存在 满足 条 件 的 记录 
If Not IsValidEmail(Email) Then 5 蚤 断 邮件 地 址 格式 
Response.Write "<script>alert(' 邮 件 地 址 格式 不 正确 ): history.backO:</script>" 
Response.End 
Else 

Set Urs = nothing 
' 在 数据 库 Users 中 插入 新 信息 


Set Urs = Server.CreateObject("ADODB.RecordSet") 
sql = "Select * from Users" 
Urs.Open sql.conn,1,3 


Urs.addnew " 播 入 新 记录 
Urs("UserName") = UserName ' 用 户 名 
Urs("UserPwd") = md5(UserPwd) 密码 


Urs("Ename") = Ename "用 户 姓名 
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Urs("Email") = Email "用 户 Email 
Ursupdate "更 新 数据 库 
Urs.Close "关闭 RecordSet 对 象 
Set Urs = nothing 
EndIf 

EndIf 

HVrs.Close 关闭 RecordSet 对 象 

Set HVrs=nothing 

Response.Write "<center> 添 加 成 功 <br><br><br>" 

"建立 到 用 户 管理 界面 的 超 链 接 

Response.Write("<a href= UserList.asp> 返 回 </a>") 


以 上 程序 代码 的 运行 过 程 如 下 所 示 。 

(1) 使 用 Rquest 对 象 的 Form0 方 法 读 取 从 表单 传递 过 来 的 用 户 数 据 。 

(2) 使 用 Request 对象 的 Formm() 方 法 读 取 隐 藏 域 flag 的 值 。 

(3) 如 果 flag 的 值 为 new， 表 示 添 加 新 记录 ， 则 首先 判断 当前 的 用 户 名 在 数据 库 中 是 
否 存 在 。 如 果 已 经 存在 ， 则 提示 用 户 “ 已 经 存在 此 用 户 名 ”， 然 后 返回 前 一 页 ， 如 果 不 存 
在 ， 则 首先 判断 输入 的 数据 格式 是 否 正 确 ， 正 确 的 话 就 使 用 Insert 语句 在 数据 库 中 插入 新 
记录 ， 否 则 给 出 提示 。 


11.3.7 ”修改 用 户 模块 


修改 用 户 模块 的 作用 是 在 用 户 管理 模块 中 ， 提 供给 管理 员 一 个 修改 一 般 用户 信 息 的 界 
面 (由 UserEdit.asp 文件 实现 )， 本 节 实 例 所 介绍 的 修改 用 户 模块 如 图 11-9 所 示 。 
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图 11-9 修改 用 户 信息 界面 


在 UserEdit.asp 文件 中 ， 包 含 表单 myform， 用 于 填写 用 户 数据 。 该 表单 的 定义 语句 如 
下 所 示 : 


<form method = "post" action = "UserSave.asp" name = "myform" "> 


在 修改 用 户 页 面 的 表单 中 ， 定 义 了 输入 用 户 姓 名 的 文本 域 为 Ename， 输 入 电子 邮箱 的 
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文本 域 为 Email。 表 单 myform 中 还 包含 隐藏 域 User[d， 其 值 为 当前 修改 用 户 的 id。 由 以 上 
代码 可 以 看 出 ， 当 管理 员 输 入 用 户 修改 的 信息 ， 并 单 击 “ 提 交 ” 按 钮 后 ， 表 单 中 的 数据 将 
在 UserSave.asp 文件 中 处 理 。 在 UserSave.asp 文件 中 处 理 用 户 修改 的 代码 如 下 : 


Dim sqLUserId, Ename,Email "定义 变量 

Userld = Request Form("UserId") "从 表单 中 接收 用 户 id 数据 
Ename = Request. Form("Ename") ' 从 表单 中 接收 用 户 姓名 数据 
Email = Request Form("Email") ' 从 表单 中 接收 用 户 电 子 邮 箱 数据 
"创建 RecordSet 对 象 


Set Urs = Server.CreateObject("ADODB.RecordSet") 

"从 数据 库 中 查询 id 列 的 值 为 Userld 的 记录 ， 并 保存 在 Urs 中 
Urs.Open "Select * from users where id="&UserId,conn,1,3 
Urs("Ename") = Ename 

Urs("Email") = Emai 


Urs.update 蝎 新 数据 库 中 的 用 户 信息 
Urs.Close 关闭 RecordSet 对 象 
Set Urs = nothing 


Response.Write "<center> 修 改 成 功 <br><br><br>"” ' 给 出 提示 

Response.Write "<a href = userlist.asp> 返 回 </a>"” “” "建立 超 链接 

以 上 程序 代码 的 运行 过 程 如 下 所 示 。 

(1) 使 用 Rquest 对 象 的 Form0 方 法 读 取 从 表单 传递 过 来 的 用 户 数 据 。 

(2) 使 用 Request 对 象 的 Form() 方 法 读 取 隐藏 域 flag 的 值 。 

(3) 如 果 flag 的 值 不 是 new， 表 示 修 改 用 户 信息 ， 则 使 用 Update 语句 修改 数据 库 中 的 


记录 。 


11.3.8 删除 用 户 模块 


删除 用 户 模块 的 作用 是 在 用 户 管理 界面 中 ， 提 供 管 理 员 一 个 删除 一 般 用 户 的 界面 (由 
UserDelasp 实现 )， 在 用 户 管理 模块 UserList.asp 页 面 中 ， 如 果 系 统管 理 员 想 删除 某 条 用 户 
记录 ， 可 以 单 击 该 用 户 对 应 的 “删除 ” 超 链 接 ， 将 打开 UserDel.asp 文件 ， 从 数据 库 中 删除 
该 用 户 的 记录 。 

删除 用 户 模块 UserDelasp 文件 的 代码 如 下 : 


<!--#include file= "ChkPwd.asp"--> 
<% 
If Session("UserName") 一 "Admin" Then ' 登 录 的 用 户 不 是 Admin 
给 出 提示 ， 并 返回 前 一 页 
Response.Write "<script>alert(' 您 不 是 系统 管理 员 ， 没 有 此 权限 ! ");history.backQ</script>" 
Else 
%> 
<html> 
<head> 
<tide> 删 除 用 户 信息 </tide> "设置 网 页 标题 
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</head> 
<body> 


<% 
Dim Uid 
Uid=Request.QueryString("UserId") ' 读 取 UserId 参数 的 值 
' 生 成 RecordSet 对 象 
Set Drs = Server.CreateObject("ADODB.RecordSet") 
执行 删除 操作 ， 删 除数 据 库 中 Id 列 的 值 为 Uid 的 记录 
Drs.Open "Delete from Users where Id = "&Uid,conn,1,3 
Response.Write ("<center><h2> 成 功 删除 </h2>") 给 出 提示 ， 删 除 成 功 
"建立 到 用 户 管理 界面 的 超 链接 
Response. Write "<a href = UserList.asp> 返 回 </a>" 
%> 
</body> 
</html> 
<% 
EndIf 
%> 


以 上 程序 代码 的 运行 过 程 如 下 所 示 。 

(1) 使 用 代码 <!--##nclude file= "ChkPwd.asp"--> 防 止 未 经 登录 的 用 户 打开 该 网 页 。 

(2) 判断 登录 用 户 是 否 是 系统 管理 员 Admin， 如 果 不 是 ， 则 给 出 警告 , 并 返回 到 前 一 页 。 
(3) 如 果 是 ， 则 使 用 Request 对 象 的 QueryString0 方 法 读 取 Userld 的 值 。 

(4) 在 数据 库 中 执行 Delete 语句 ， 删 除 指定 的 用 户 记录 。 

(5) 在 页 面 上 显示 “成 功 删 除 ” 的 信息 ， 并 生成 一 个 到 用 户 管理 界面 UserList.asp 文件 的 


11.3.9 ”修改 密码 模块 


面 ( 


修改 密码 模块 的 作用 是 为 管理 员 与 普通 用 户 提供 一 个 修改 自己 的 用 户 登录 密码 的 界 


PwdChange.asp 文件 实现 )， 本 节 实 例 所 介绍 的 修改 密码 模块 界面 如 图 11-10 所 示 。 


1 x 和 ad 
外 久久 男 | 日 192.168.1.77/ 生 115% 6 全 |v| 加 Google Ql Er 


a TE 症 VQ 


图 11-10 ”修改 密码 模块 
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修改 密码 模块 界面 中 ， 定 义 了 表单 PwdChgForm。 表 单 PwdChgForm 内 定义 输入 原始 
密码 的 文本 域 的 名 称 为 OriPwd, 输入 新 密码 的 文本 域 的 名 称 为 Pwd, 输入 确认 密码 的 文本 
域 的 名 称 为 Pwdl 。 表 单 PwdChgForm 的 具体 定义 代码 如 下 : 


<form method=- "POST" name="PwdChgForm" action="SavePwd.asp?UserId=<%=UserId%>"- 
onsubmit="returm ChkField0"> 
通过 以 上 代码 可 以 看 出 , 当 用 户 输入 密码 信息 并 单 击 “ 提 交 ” 按 钮 后 , 首先 在 ChkField0 
过 程 中 检查 用 户 密码 输入 的 合法 性 ， 然 后 在 SavePwd.asp 文件 中 处 理 从 表单 传递 过 来 的 数 
据 。ChkField0 过 程 的 代码 如 下 : 


<script language="vbscript"> 
Function ChkFields() ' 定 义 过 程 
' 用 户 输入 的 新 密码 长 度 小 于 6 
If Document.PwdChgForm.Pwd.value.length<6 Then 
alert(" 新 密码 长 度 必 须 大 于 等 于 6! ") 弹出 警告 框 
myform. Pwd focus0 "界面 上 的 新 密码 文本 框 设 为 焦点 
Tetum false 
End If 
' 用 户 没有 输入 确认 密码 
If Document.PwdChgForm.Pwdl.value=" " Then 
alert(" 请 确认 新 密码 !") 弹出 警告 框 
myform.Pwd.focus| "界面 上 的 新 密码 文本 框 设 为 焦点 
Tetum false 
End If 
' 用 户 输入 的 新 密码 和 确认 密码 不 一 至 
If Document.PwdChgForm.Pwd.value—>Document.myform.Pwdl.value Then 
alert(" 两 次 输入 的 新 密码 必须 相等 ! ") 弹出 警告 框 
Tetum false 
EndIf 
return true 
End Function 
</script> 
在 ChkField0 过 程 中 ,首先 检查 用 户 输入 的 新 密码 长 度 ， 如 果 密 码 长 度 小 于 6， 则 弹出 
警告 框 ， 并 返回 到 密码 修改 界面 重新 输入 ; 如 果 密 码 长 度 满足 条 件 ， 则 检查 用 户 是 否 输入 
确认 密码 ， 最 后 检查 用 户 两 次 输入 的 密码 是 否 一 致 。 
SavePwd.asp 文件 中 处 理 表单 数据 的 代码 如 下 : 


<% 
"使 用 Request 对 象 的 QueryString0 方 法 获得 UserId 的 值 
UserId= Request.QueryString("UserId") 
"使 用 Request 对 象 的 Form0 方 法 读 取 从 表单 传递 过 来 的 值 
OriPwd = Request. Form("OriPwd") 
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Pwd = Request.Form("Pwd") 

判 断 是 否 存在 此 用 户 

Set rs = Server.CreateObject("ADODB.RecordSet") “' 建 立 RecordSet 对 象 
"从 数据 库 中 读 取 id 列 的 值 为 Userld 的 记录 

TS.Open "Select * from Users where id="&Userld.conn,1,3 


Ifrs.EOF Then 满足 条 件 的 记录 不 存在 

Response .Write("<hr><center> 不 存在 此 用 户 名 ! </h2><br><br><br>") 

' 生 成 关闭 窗口 的 按钮 

Response. Write("<input type = button name = close onclick = window.close() value = 关闭 >") 
Elself (rs("UserPwd")<—md5(OriPwd)) Then ' 用 户 输 入 密码 错误 

Response.Write("<hr><center> 密 码 错 误 ! </h2><br><br><br>") 

' 生 成 关闭 窗口 的 按钮 

Response. Write("<input type = button name = close onclick = window.close( value = 关闭 >") 
Else 哗 在 满足 条 件 的 记录 
蝎 新 数据 库 中 的 密码 


sql = "Update Users set UserPwd="' "&md5(Trim(Pwd))&" ' where Id = "&UserId 
Set rs = Server.CreateObject("ADODB.RecordSet") 
Ts.Open sql,conn,1,3 
Response.Write("<hr><center> 更 改 密码 成 功 ! </h2><br><br><br>") 
Response. Write("<input type = button name = close onclick = window.close() value = 关闭 >") 
End If 
%> 
以 上 程序 代码 的 运行 过 程 如 下 所 示 。 
(1) 使 用 代码 <!--##nclude file= "ChkPwd.asp"--> 防 止 未 登录 的 用 户 打 开 该 网 页 。 
(2) 使 用 Request 对 象 的 QueryString0 方 法 从 网 页 链接 地 址 中 读 取 UserId 的 值 ,从 表单 
中 读 取 原始 密码 OriPwd 和 新 密码 Pwd 的 值 。 
(3) 判断 数据 库 中 是 否 存在 用 户 id 为 Userld 的 记录 。 
(4) 如 果 存 在 满足 条 件 的 记录 ， 则 判断 用 户 输入 的 原始 密码 是 否 正确 。 
(5) 如 果 正 确 ， 则 更 新 数据 库 ， 修 改 用 户 密码 。 
(6) 提示 用 户 “ 更 改 密码 正确 "， 并 生成 一 个 关闭 窗口 的 按钮 。 


11.3.10 ”退出 登录 模块 


退出 登录 模块 用 于 在 Index.asp 文件 中 ， 单 击 “ 退 出 登录 ” 超 链接 ， 将 打开 logout.asp 
文件 并 退出 用 户 登 录 状 态 。 在 logout.asp 文件 中 退出 登录 的 具体 代码 如 下 : 


<% 
' 将 Session("Passed") 的 值 置 为 False， 表 明 当 前 没有 用 户 登录 
Session("Passed") = false 


Session("UserName")=" " ' 清 空 Session("UserName") 中 的 值 
Session("Id") ="" 清空 Session("Id") 中 的 值 
Response.Redirect "index.asp" "页 面 转 到 index.asp 文件 


%> 
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11.4 习 题 


11.4.1 问答 题 


1. 简 述 生成 网 页 验证 码 的 实现 流程 。 
2. 简 述 MD5 数据 加 密 的 原理 。 


11.4.2 ”操作 题 


1. 创建 本 章 实例 所 用 的 Access 数据 库 。 
2. 修改 本 章 实例 效果 ， 使 管理 员 账 户 可 以 修改 普通 用 户 账户 密码 。 


第 12 章 “ASP 综合 开发 实例 
一 一 博客 网 站 


教学 目标 
通过 本 章 的 实例 讲解 ， 读 者 应 掌握 利用 ASP 技术 制作 一 个 博客 网 站 的 方法 。 


@ 博客 网 站 的 总 体 设计 

@ 数据库 的 设计 

@ 文件 架构 的 设计 

博客 (音译 )， 英 文 名 为 Blog， 为 Web Log 的 混成 词 。 它 是 互联 网 上 个 人 信息 交流 的 中 
心 ， 是 一 种 由 个 人 管理 、 不 定期 张贴 新 的 文章 的 网 站 。 博 客 可 以 让 每 个 人 零 成 本 、 零 维护 
地 创建 自己 的 网 络 媒体 ， 并 随时 将 自己 的 思想 、 知 识 ， 以 文字 、 图 像 、 链 接 的 形式 更 新 在 
网 络 中 。 本 章 将 介绍 如 何 开发 一 个 博客 网 站 的 方法 。 


12.1 功能 描述 


博客 网 站 是 一 个 ASP 与 数据 库 技术 结合 的 典型 应 用 程序 , 由 前 台 用 户 操作 和 后 台 博 
管理 模块 组 成 ， 规 划 系统 功能 模块 如 下 。 

e 前 台 用 户 操作 : 该 模块 包含 文章 、 相 册 、 登 录 、 搜 索 、 推 荐 、 评 论 、 统 计 等 功能 。 

e 后 台 博 主管 理 : 该 模块 包括 文章 信息 管理 、 相 册 信 息 管理 、 管 理 员 资 料 管理 等 功能 。 


博客 网 站 的 前 台 功 能 结构 如 图 12-1 所 示 。 后 台 功 能 结构 如 图 12-2 所 示 。 


图 12-1 博客 网 站 前 台 功 能 图 12-2 博客 网 站 后 台 功 能 
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12.2 数据库 设计 


数据 库 设计 阶段 是 在 系统 功能 结构 图 的 基础 上 进行 的 ， 设 计 出 能 够 满足 用 户 需 求 的 各 
种 实体 以 及 它们 之 间 的 关系 ， 将 为 后 面 的 逻辑 结构 打下 基础 。 


12.2.1 数据 库 E-R 图 分 析 


根据 网 站 设计 结果 ， 得 到 文章 信息 实体 、 文 章 分 类 信息 实体 、 文 章 评论 信息 实体 、 相 
册 信息 实体 、 相 册 分 类 信息 实体 和 管理 员 信息 实体 。 下 面 将 分 别 介绍 主 要 信息 实体 的 E-R 
图 (实体 -联系 图 )。 
e 文章 信息 实体 包括 文章 ID、 文 章 所 属 分 类 ID、 文 章 标题 、 文 章 内 容 、 作 者 名 称 和 
发 表 时 间 。 文 章 信息 实体 的 E-R 图 ， 如 图 12-3 所 示 。 
e 文章 分 类 信息 实体 包括 文章 分 类 ID、 文 章 分 类 名 称 和 添加 时 间 。 文 章 信息 实体 的 
E-R 图 ， 如 图 12-4 所 示 。 


文章 信息 实体 


文章 分 类 信息 实体 


添 变 
加 文 Ee 
时 章 分 
间 分 类 
类 名 
四 称 
图 12-3 文章 信息 实体 E-R 图 图 12-4 文章 分 类 信息 实体 E-R 图 


e 文章 评论 信息 实体 包括 评论 ID、 文 章 ID、 评 论 人 昵称 、 评 论 内 容 和 发 表 时 间 。 文 
章 评论 信息 实体 的 E-R 图 ， 如 图 12-5 所 示 。 

e 相册 信息 实体 包括 相册 ID、 相 册 分 类 ID、 图 片 名 称 、 图 片 标识 、 图 片 信息 和 添加 
时 间 。 相 册 信 息 实 体 的 ER 图 ， 如 图 12-6 所 示 。 


文章 评论 信息 实体 相册 信息 实体 


图 12-5 文章 评论 信息 实体 E-R 图 图 12-6 ”相册 信息 实体 E-R 图 


e 相册 分 类 信息 实体 包括 相册 分 类 ID、 相 册 分 类 名 称 和 添加 时 间 。 相 册 分 类 信息 实 
体 的 E-R 图 ， 如 图 12-7 所 示 。 
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相册 分 类 信息 实体 


吾 可 车 这 
日 闪 冰 弟 兰 
绒 改 冰 阅 汗 丫 


图 12-7 相册 分 类 信息 实体 E-R 图 


12.2.2 数据 表 概 要 说 明 


根据 前 面 的 介绍 ， 可 以 创建 与 实体 相对 应 的 数据 表 。 为 了 使 用 户 对 本 系统 数据 库 的 结 
构 有 一 个 直观 的 了 解 ， 下 面 将 给 出 数据 库 中 包含 的 数据 表 的 结构 图 ， 如 图 12-8 所 示 。 


是 


db blog 


上--- 团 Tab article 文章 信息 表 


人 国 Tab_article_class 文章 分 类 信息 表 

! 

r--- 国 Tab_article_command 文章 评论 信息 表 
1 国 Tab_manager 管理 员 信息 表 

! 


~~- 国 Tab_Photo 相册 信息 表 


4--- Tab_article_class 相册 分 类 信息 表 


图 12-8 数据 表 结 构 


12.2.3 ”主要 数据 表 的 结构 


数据 库 在 整个 管理 系统 中 占据 非常 重要 的 地 位 ， 数 据 库 结构 设计 的 好 坏 直 接 影响 着 系 
统 的 效率 和 实现 效果 。 本 系统 采用 的 是 Access 2013 数据 库 ， 数 据 库 名 称 为 db_blog。 下 面 
将 介绍 该 数据 库 中 主要 数据 表 的 结构 。 

1. tab_article 数据 表 

tab_article 数据 表 主 要 用 于 保存 添加 的 文章 信息 ， 其 结构 如 表 12-1 所 示 。 
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表 12-1 tab_article 表 的 结构 


字段 名 称 | 数 据 类 型 | 是 否 主 键 | 长 i 字段 描述 
I1d 自动 编号 是 唯一 标识 
Aclass 字 所 属 类 别 也 
Atitle 文本 和 文章 标题 
Acontent 备注 文章 内 容 
Aauthor 文本 一 作者 名 称 
Adate 日 期 /时 间 a 添加 时 间 


2. tab_article_class 数据 表 
tab_article_class 数据 表 主 要 用 于 保存 文章 的 分 类 信息 ， 其 结构 如 表 12-2 所 示 。 
表 12-2 tab_article_class 表 的 结 
nu 由 只 -标识 


cone 二 文章 分 类 名 和 
Aue mn 由 | — | s | ww | 还 加 时 间 


3. tab_article_command 数据 表 


tab_article_command 数据 表 主 要 用 于 保存 对 文章 进行 评论 的 信息 , 其 结构 如 表 12-3 所 示 。 


表 12-3 tab_article_command 表 的 结构 


字段 名 称 | 数 据 类 型 字段 描述 
Id 自动 编号 唯一 标识 
Cid 数字 文章 ID 编号 
Cname 文本 昵称 
Ccontent 文本 评论 内 容 
Cdate 日 期 时间 添加 时 间 


4. tab_photo 数据 表 
tab photo 数据 表 主要 用 于 保存 上 传 的 相册 信息 内 容 ， 其 结构 如 表 12-4 所 示 。 


第 12 章 ASP 综合 开发 实例 一 一 博客 网 站 。279 。 


表 12-4 tab_photo 表 的 结构 


是 
4 
50 全 
50 
8 
5. tab_photo_class 数据 表 
tab_photo_class 该 数据 表 主 要 用 于 保存 相册 的 分 类 信息 ， 其 结构 如 表 12-5 所 示 。 


| 否 | 图 片 名 称 
| 天 | 图 片 信息 


表 12-5 tab_photo_Class 表 的 结构 


是 否 允 许 
= 


字段 描述 


| 一 | 一 | 哗 - 标 识 
数 守 | 一 | 50 | 0 | 和 示 | 相册 分 类 名 称 
EN | 一 | 8 | Nw | 一 | 添加 时 间 


12.3 ”文件 架构 设计 


在 网 站 构建 的 前 期 , 可 以 把 网 站 中 可 能 用 到 的 文件 夹 先 创建 出 来 (例如 , 创建 一 个 名 为 
images 的 文件 夹 ， 用 于 保存 网 站 中 使 用 的 图 片 )， 这 样 可 以 规范 网 站 的 整体 架构 ， 使 网 站 易 
于 开发 、 管 理 和 维护 。 本 例 博客 网 站 ， 所 设计 的 文件 夹 结 构 如 图 12-9 所 示 。 

BMyblog 


岂 一 


Manage 存储 网 站 后 台 管理 系统 的 文件 


Upfile 存储 上 传 的 图 片 文 件 images 存储 网 站 前 台 使 用 的 图 片 文件 


--- 类 css 存储 网 站 后 台 使 用 的 CSS 样式 表 文件 


吕 Include 存储 网 站 前 台 使 用 的 包含 文件 
?--- 腊 image 存储 网 站 后 台 使 用 的 图 片 文件 ”DataBase 存储 数据 库 文件 
“--- include 存储 网 站 后 台 使 用 的 包含 文件 。 “css 存储 网 站 前 台 使 用 的 CSS 样式 表 文 件 


图 12-9 文件 夹 架构 图 


12.4 公共 文件 的 编写 


公共 文件 指 的 是 将 网 站 中 多 个 页 面 都 使 用 到 的 代码 编写 到 一 个 单独 的 文件 中 ,在 使 
时 只 要 用 #include 指令 包含 此 文件 即 可 。 
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12.4.1 防止 SQL 注入 和 创建 数据 库 连 接 


为 了 防止 SQL 注入 漏洞 , 可 以 将 其 相关 代码 与 创建 数据 库 连 接 的 代码 放置 在 同一 个 文 
件 中 (如 conn.asp 文件 )。 这 样 ， 可 以 保证 网 站 中 绝 大 部 分 文件 都 可 以 引用 该 公共 文件 ， 从 
而 保证 网 站 的 安全 。 

1. 防止 SQL 注入 

当 应 用 程序 使 用 输入 内 容 来 构造 动态 SQL 语句 访问 数据 库 时 , 会 产生 SQL 注入 攻击 。 
SQL 注入 成 功 后 ， 就 会 出 现 攻击 者 可 以 随意 在 数据 库 中 执行 命令 的 漏洞 。 所 以 ， 在 程序 代 
码 中 把 一 些 SQL 命令 或 者 SQL 关键 字 进 行 屏蔽 ， 可 以 防止 SQL 注入 漏洞 的 产生 。 

将 防止 SQL 注入 漏洞 的 程序 代码 写 入 到 数据 库 连 接 文件 中 , 保证 网 站 中 的 每 个 页 面 都 
调用 此 程序 。 程 序 罗 辑 是 首先 将 需要 屏蔽 的 命令 、 关 键 字 、 符 号 等 用 符号 “|” 分 隔 并 存储 
在 变量 中 ， 再 使 用 Split 和 Ubound 脚本 函数 将 页 面 接收 到 的 字符 串 数据 与 其 做 比较 ， 如 果 
接收 到 的 字符 串 数据 包含 屏蔽 的 数据 信息 ， 则 将 页 面 转 入 到 指定 页 面 ， 不 允许 访问 者 进行 
其 他 操作 。 代 码 如 下 : 


<% 
Dim SQL Injdata 
SQL Injdata="| ; landlexeclinsertlselectldeletelupdate|count|*|%lchrimidlmasterltruncate|charldeclare" 
"定义 需要 屏蔽 的 命令 、 关 键 字 、 符 号 等 
SQL inj=split(SQL Injdata, "|") "定义 由 "分隔 的 一 维 数组 
If Request.QueryString—>""then 
For Each SQL_Get in Request.QueryString "遍历 QueryString 数据 集合 中 的 数据 
For SQL _ Date=0 To Ubound(SQL inj) "如 果 搜 索 到 屏蔽 的 数据 ， 则 跳 转 到 网 站 首页 
下 instr(RequestQueryString(SQL_Geb,sql_ Inj(sql Data))>0 Then 
Respinse.Redirect("index.asp") 
endif 
next 
Next 
EndIf 
%> 


2. 创建 数据 库 连接 
为 了 提高 程序 的 运行 效率 ， 保 证 网 站 浏览 者 能 够 以 较 快 的 速度 打开 并 浏览 网 页 ， 用 户 
可 以 通过 OLE DB 方法 连接 Access 数据 库 。OLE 是 一 种 面向 对 象 的 技术 ， 利 用 该 技术 可 
以 开发 可 重用 软件 组 件 。 使 用 OLE DB 不 仅 可 以 访问 数据 库 中 的 数据 ， 还 可 以 访问 Excel、 
文本 文件 、 邮 件 服务 器 中 的 数据 等 。 使 用 OLE DB 访问 Access 数据 库 的 代码 如 下 : 
<% 
Dim conn,connstr 
Set conn=Server.CreateObject("ADODB.Connection") 
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connstr="Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin:; Password=; 
Data Source="&Server.MapPath("DataBase/db_blog.mdb")&";" 
conn.open connstr 


%> 


12.4.2 ”统计 访问 量 


在 网 站 中 通过 一 个 计数 器 可 以 统计 网 站 的 访问 量 ， 从 而 能 够 准确 地 掌握 网 站 的 访问 情 
况 。 实 现 网 站 计数 器 的 方法 有 很 多 ， 例 如 可 以 使 用 FileSystemObject 对 象 对 文本 文件 进行 
操作 。 设 计 思 路 如 下 : 

(1) 在 判断 指定 的 Cookies 变量 visitor 为 空 的 前 提 下 , 创建 FileSystemObject 对 象 并 以 
只 读 方 式 打 开 文 本 文件 count.txt， 读 取 其 中 的 数据 赋予 指定 的 变量 

(2) 以 写 文件 的 方式 打开 文本 文件 count.txt， 将 访问 量 增加 1 后 写 入 到 文件 中 。 

(3) 给 Cookies 变量 visitor 赋值 ， 并 设置 此 变量 的 有 效 期 为 1 天 。 

代码 如 下 : 


<% 
If Trim(Request.Cookies("visitor"))="" Then 
"创建 FileSystemObject 对 象 
Set FSObject=Server.CreateObject("Scripting.FileSystemObject") 
以 只 读 方 式 打开 count.txt 
Set TextFile=FSObject.OpenTextFile(Server.MapPath("count.txt")) 


If not TextFile.AtEndOfStream Then 
num3=TextFile.ReadLine ' 读 取 文 件 count.txt 的 数据 
End If 
Set TextFile=Nothing 
Set TextFile=FSObject.OpenTextFile(Server.MapPath("count.txt"),2,true) 
TextFile. WriteLine num3+1 将 数值 加 1 后 写 入 到 count.txt 
Set TextFile=Nothing 
Set FSObject=Nothing 
Response.Cookies("visitor")="visited" 为 Cookies 变量 visitor 赋值 
Response.Cookies("visitor").Expires=DateAdd("d",1,now0) "指定 Cookie 的 有 效 时 间 
End If 
%> 


用 户 可 将 以 上 代码 编写 在 conn.asp 文件 中 ， 以 保证 有 效 地 统计 网 站 访问 量 。 


12.5 ”网 站 前 台 主 页 面 设计 


网 站 前 台 主 页 面 是 网 站 面向 Intemet 提供 给 浏览 者 的 第 一 视觉 界面 。 该 页 面 不 仅 需要 
有 合理 的 整体 布局 ， 还 应 通过 各 种 功能 模块 体现 网 站 的 主题 内 容 ， 使 访问 者 可 以 在 最 短 时 
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间 内 了 解 网 站 。 本 章 实例 所 制作 的 前 台 主 页 面 效 果 如 图 12-10 所 示 。 


图 12-10 网 站 前 台 主 页 面 


12.5.1 主页 面 的 布局 


主页 面 的 框架 采用 两 分 栏 结构 ， 分 为 页 头 、 侧 栏 、 页 尾 和 内 容 显示 区 4 个 区 域 。 实 现 
前 台 主 页 面 的 ASP 文件 为 Index.asp， 该 页 面 的 布局 结构 如 图 12-11 所 示 。 


CE _ 
页 头 

侧 栏 内 容 显示 
页 尾 


图 12-11 页 面 布局 


在 Index.asp 文件 中 主要 采用 #include 指令 来 包含 各 区 域 所 对 应 的 ASP 文件 。 例 如 , 页 
头 对 应 文件 为 top.asp， 侧 栏 对 应 文件 为 leftasp 。 在 内 容 显示 区 ， 则 定义 浮动 框架 标记 
<iframe> 用 于 显示 其 他 文件 内 容 。 


12.5.2 主页 面 的 实现 


根据 图 12-11 所 示 的 页 面 布 局 ， 可 以 在 Index.asp 页 面 中 创建 一 个 3 行 2 列 的 表格 ， 然 
后 在 相应 的 单元 格 中 使 用 #include 指令 包含 相应 的 ASP 页 面 ， 并 在 左 侧 单元 格 中 定义 
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<iframe> 标 记 ， 具 体 代码 如 下 : 


<table width="778" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> 
<L-- 包 含 页 头 文件 - -> 
<td colspan="2"><!--#include file="top.asp"--></td> 
</t> 
<t> 
<!-- 包 含 侧 栏 文件 --> 
<td width="210" align="center" valign="top"><!--#include file="left.asp"--></td> 
<td width="568" align="center" valign="top"><iframe name="mainFrame" src="web index.asp"- 
width="560" height="650" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto"> 
</iframe></td> 
</tr> 
<tr> 
<td height="40" colspan="2" align="center" valign="middle">Copyright 2022 &copy; 博客 网 站 </td> 
</t> 
</table> 


12.6 ”文章 展示 模块 的 设计 


文章 展示 模块 的 主要 功能 是 浏览 网 站 发 表 的 文章 列表 ， 浏 览 者 可 以 查看 文章 的 详细 内 
容 ， 包 括 文章 作者 、 发 表 时 间 等 ， 并 能 够 针对 文章 发 表 评 论 。 本 系统 制作 的 文章 展示 模块 
主要 包括 前 台 主页 面 文章 展示 、 文章 分 类 列表 展示 、 文章 详细 内 容 展示 等 部 分 , 如 图 12-12 
所 示 。 
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图 12-12 文章 展示 页 面 
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12.6.1 主页 面 文章 展示 的 实现 过 程 


在 网 站 前 台 主 页 面 中 展示 最 新 的 两 篇 文章 信息 ， 包 括 文 章 标题 、 文 章 部 分 内 容 、 发 表 
时 间 以 及 评论 数量 ， 单 击 “ 阅 读 全 文 ” 超 链接 可 以 查看 文章 的 全 部 内 容 ， 如 图 12-12 所 示 。 
在 web_index.asp 页 面 中 ， 用 户 可 以 首先 查询 文章 信息 列表 中 最 新 的 两 条 记录 ， 然 后 
在 依次 展示 文章 内 容 的 同时 查询 文章 评论 信息 表 以 获取 文章 对 应 的 评论 数量 ,其 代码 如 下 : 


<% 

Set rs=Server.CreateObject("ADODB.Recordset) 

嘻 询 最 新 的 两 条 记录 信息 

sqlstr="select top 2 id, Atitle,Adate, Aclass, Acontent from tab_article order by id desc" 

rs.open sqlstr,conn,1,1 

Ifrs.eof Then 
Response. Write("<tr><td height=20 colspan=2 align=center> 暂 无 收藏 ! </td></tr>") 
Response.End() 

Else 
while not rs.eof 


Set rs_commend=conn.Execute("select count(id) as num from tab_article_ commend where 


Cid="&rs("id")&"") 获 取 评 论 数量 
%> 
<t> 
<td height="20" colspan="2"><table width="100%" border="0" cellpadding="2" cellspacing="1"> 
<tr> 


<td height="30" align="left" valign="middle"><img src="images/tpic.gif' width="10" height="10" /> 
<%=rs("Atitle")%></td> 
</t> 
<tr> 
<td width="41%" align="left" valign="middle"><p align="left" style="width:240px 
; line-height:20px;"><%Response. Write Left(rs("Acontent").45) & "......"%></p></td> 
</tr> 
<tr> 
<td align="left" valign="middle"><p align="center" style= "width:200px: line-height:20px:"> 
<a href="web_blog_view.asp?id=<%=rs("id")%>&amp;num=<%=rs_commend("num")%>"> 阅 读 全 
文 </a></p></td> 
</tr> 
<tr> 
<td align="right" valign="middle"><p align="left" style="width:300px: line-height:20px:"> 发 表 时 间 : 
<%=rs("Adate")%> | 评论 : <%=rs_commend("num")%></p></td> 
</t> 
</table></td> 
</t> 
<% 
Set rsc=Nothing 


第 12 章 ASP 综合 开发 实例 一 一 博客 网 站 。285。 


Is.movenext 
wend 
EndIf 
Is.close 
Set rs=Nothing 
%> 


12.6.2 ”文章 列表 展示 的 实现 过 程 


文章 列表 展示 主要 包括 显示 根据 选择 的 文章 分 类 或 者 通过 Blog 搜索 查找 到 的 文章 列 
表 内 容 。 当 用 户 在 网 站 导航 栏 处 单 击 “ 我 的 文章 ” 超 链 接 ， 将 显示 按照 发 表 时 间 倒 序 排序 
的 博客 文章 列表 ， 在 该 页 面 中 单 击 具体 的 分 类 链接 ， 可 以 查看 分 类 文章 列表 。 当 用 户 在 前 
台 主 页 面 的 Blog 搜索 栏 中 输入 查询 内 容 ， 则 显示 与 之 相 匹配 的 文章 列表 。 

文章 列表 页 面 web_blog_list.asp 首先 获取 传递 的 参数 值 ， 根 据 参 数值 确定 显示 文章 列 
表 的 条 件 从 而 执行 相应 的 SQL 查询 语句 ， 其 关键 代码 如 下 : 


<% 
获取 传递 的 参数 ， 根 据 参 数值 确定 SQL 查询 语句 
classid=Request.QueryString("classid") 获取 文章 分 类 ID 
classname=Request.QueryString("classname") "获取 文章 分 类 名 称 
If classname—"" Then megstr="<font color=#FF0000>"&classname&"</font>"&" 之 " 
btype=Request.Form("btype") 获取 查询 条 件 
keyword=Request.Form("keyword") "获取 查询 关键 字 
%> 
Set rs=Server.CreateObject("ADODB.Recordset") "创建 Recordest 对 象 
sqlstr="select top 14 id,Atitle,Adate,Aclass from tab_article where 1=1" ' 按 分 类 查询 


If IsNumeric(classid) and classid<—"" Then sqlstr=sqlstr&" and Aclass="&classid&"" 
' 按 查询 条 件 搜索 
Ifkeyword—"" Then 
Select case btype 
case "]" 
sqlstr=sqlstr&" and Atitle like '%6"&keyword&e"o%om 
case "2" 
sqlstr=sqlstr&" and Acontent like '%"&keyword&"%" 
case "3" 
sqlstr=sqlstr&" and Aauthor like '%6"&keyword&c"oo" 
End Select 
EndIf 
sqlstr=sqlstr&" order by id desc" 
Is.open sqlstr,conn,1,1 和 打开 记录 集 
Ifrs.eof Then 
%> 
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<tr> 
<td height="20" colspan="2" align="center"> 您 查询 的 记录 暂 无 收藏 ! </td> 

<> 

<%End IF%> 

<% 
while not rs.eof 
Setrs_commend=conn.Execute("select count(id) as num from tab_article commend where 

Cid="&rs("id")&"")' 获 取 评论 数量 %> 

<tr> 
<td width="23%" height="20">&nbsp;&nbsp;[<%=formatDateTime(rs("Adate"),2)%>]</td> 
<td width="77%" height="20"><a hre 人 ="web_blog_view.asp?id=<%=rs("id")%> 
&amp;num—=<%=rs_commend("num")%>"><%=rs("Atitle")%></a></td> 


</tr> 

<% 
Set rsc=Nothing 
rs.movenext ' 记 录 集 指针 向 下 移动 
wend 
rs.close 关闭 记录 集 
Set rs=Nothing 

%> 


12.6.3 ”文章 详细 显示 的 实现 过 程 


文章 详细 显示 包括 显示 文章 的 详细 内 容 、 文 章 作者 以 及 文章 发 表 时 间 ， 并 展示 文章 对 
应 的 评论 内 容 。 在 文章 详细 显示 页 面 中 ， 单 击 “ 评 论 ” 超 链接 ， 浏 览 者 可 以 填写 信息 发 表 
评论 。 下 面 介绍 文章 详细 显示 的 实现 过 程 。 

1. 查询 并 显示 文章 信息 

页 面 web_blog view.asp 根据 接收 到 的 参数 查询 文章 信息 表 ， 并 展示 文章 内 容 ， 同 时 
查询 评论 信息 表 展 示 文 章 对 应 的 评论 信息 ， 其 关键 代码 如 下 : 


<% 
' 显 示 文章 的 详细 内 容 ,包括 文章 标题 、 文 章 作者 、 发 表 时 间 以 及 文章 内 容 
id=Request.QueryString("id") 文章 id 
num=Request.QueryString("num") ' 评 论 数 量 
If Not IsNumeric(id) Then 
Else 
Set rs=conn.Execute("select id,Atitle,Acontent, Aauthor,Adate from tab_article where id="&id&"") 
%> 


<tr align="left" bgcolor="FFFCE8"> 
<td align="right"> 发 表 时 间 : <%=rs("Adate")%>&nbsp;&nbsp;&nbsp;&nbsp;&znbsp;&nbsp; 评论 : 
<%=num%>&nbsp:;&nbsp;&nbsp; </td> 
</tr> 
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<tr> 
<td align="center" height="1" background="images/xuxian gif'></td> 
</t> 
<tr> 
<td align="center" valign="bottom" class="font1"><h4><%=rs("Atitle")%></h4></td> 
</tr> 
<tr> 
<td align="right" valign="top"><div style="width:200px:" align="left"> 作 者 : 
<%=rs("Aauthor")%></div></td> 
</t> 
<t> 
<td align="center"><p align="left" style= "width:S00px:line-height22px; 
text-indent:Spx"><%=rs("Acontent")%></p></td> 


<% 
' 显 示 对 此 篇 文章 发 表 的 详细 评论 内 容 
Set rsc=Server.CreateObject("ADODB.Recordset") 
sqlstr="select top 25 * from tab_article commend where Cid="&id&" order by id desc" 
rsc.open sqlstr,conn,1,1 
while not rsc.eof 
%> 
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" 
bgcolor="#CACACA'"> 
<tr bgcolor="#FFFFFF"> 


<td width="40%" height="22" bgcolor="#CACACA"><font class="font1"> 昵 &nbsp; 称 : 


</font><%=rsc("Cname")%></td> 


<td width="60%" height="22" bgcolor="#CACACA"><font class="font1"> 评 论 时 间 : 


</font><%=rsc("Cdate")%></td> 
</t> 
<tr bgcolor="#FFFFFF"> 
<td height="22" colspan="2" bgcolor="#CACACA"><%=rsc("Ceontent")%></td> 
</t> 
</table> 
<div style="line-height:Spx:">&nbsp;</div> 
<% 
Isc.movenext 
wend 
Isc.close 
Set rsc=Nothing 
%> 
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2. 显示 用 于 提交 评论 的 表单 
在 单 击 “评论 ” 超 链接 时 ， 显 示 用 于 提交 评论 信息 的 表单 ， 其 关键 代码 如 下 : 


<% 一 -发 表 评论 一 %> 
<tr id="xuxian" style="display:none"> 
<td align="center" height="1" background="images/xuxian gif'></td> 
</tr> 
<tr id="commend show" style="display:none"> 
<td> 
<table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<form action="" method="post" name="forml" id="forml"> 
<t> 
<td width="13%" height="22" align="right" class="font2"> 昵 &nbsp;&nbsp:&nbsp; 称 : </td> 
<td width="87%" height="22"><input name=" 评 论 人 昵称 "type="text" class="textbox" 
id=" 评 论 人 昵称 " /></td> 
</t> 
<tr> 
<td height="22" align="right" class="font2"> 评 论 内 容 ，</td> 
<td height="22"><textarea name=" 评 论 内 容 " cols="60" rows="3" id=" 评 论 内 容 " 
onkeydown="CountStrByte(this.form. 评 论 内 容 ,this.form.total,this.form.used,this.form remain):" 
onkeyup="CountStrByte(this.form. 评 论 内 容 ,this.form.total,this.form.used,this.form.remain);"></textarea> 
<br/> 
提示 (最 多 允许 
<input name="total" type="text" disabled="disabled" class="textbox" id="total” value="200" 
size="3" 广 个 字 节 已 用 字 节 : 
<input name="used" type="text" disabled="disabled" class="textbox" id="used" value="0" 
size="3" 人 > 剩余 字 节 : 
<input name="remain" type="text" disabled="disabled" class="textbox" id="remain" 
value="200" size="3" /> 
)</td> 
</t> 
<tr> 
<td height="22" align="right" class="font2"> 验 证 密码 ，</td> 
<td height="22"><%Session("verify")=randStr(4)%> 
<input name=" 验 证 密码 " type="text" class="textbox" id=" 验 证 密码 " size="6" /> 
<font color="#FF0000"><%=Session("verify")%></font> 
<input name—"verify2" type="hidden" id—="verify2" value="<%=Session("verify")96>" /> 
</td> 
</tr> 
<tr> 
<td height="22">&nbsp;</td> 
<td height="22"> 
<input name="add" type="submit" class="button" id="add" onclick="retum 
Mycheck(this.form)" value=" 提 交 " /> 
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<input name="Submit2" type="reset" class="button" value=" 重 置 " /> 
<input name="id" type="hidden" id="id" value="<%=id%>" /> 
<input name="num" type="hidden" id="num" value="<%=num%>" /> 
</td> 
</t> 
</form> 
</table></td> 
</t> 
<% 
Set rs=Nothing 
EndIF 
%> 


以 下 是 表单 验证 代码 : 


<script language="javascript"> 
function Mycheck(form){ 
for(i=0;i<form length:i+H){ 
if(form.elements[i].value—""){ 
alert(form elements[i].name + "不 能 为 空 !"):returmn false;} 
if(form.elements[5].value!=form.elements[6].value){ 
alert(" 验 证 码 错误 1");return false;} 
} 
} 
function show_trO{ 
if(xuxian.style.display=——"none"){ 
xuxian.style.display="block"; 
commend show.style.display="block"; 
} 
else { 
xuxian.style.display="none"; 
commend show.style.display="none"; 
} 


} 
</script> 


3. 添加 信息 至 文章 评论 信息 表 


当 用 户 填写 上 昵称、 评论 内 容 以 及 验证 密码 后 ， 程 序 会 将 相应 的 信息 添加 至 文章 评论 信 
息 表 中 ， 其 代码 如 下 : 


| 


<% 
Session("verify")="" 
添加 新 的 评论 信息 
Sub add0 
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及 某 


本 全 


id=Request.Form("id") 
num=Request. Form("num") 
strl=Str filter(Request.Form(" 评 论 人 昵称 ")) 
str2=Str filter(Request.Form(" 评 论 内 容 ")) 
Ifstr1<—>"" and sttr2<—>"" Then 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select * from tab_article commend" 
Is.open sqlstr,conn,1,3 
Is.addnew 
rs("Cid")=id 
rs("Cname")=strl 
rs("Ccontent")=str2 
rs.update 
Is.close 
Set rs=Nothing 
Response.Redirect("web_ blog view.asp?id="&id&"&num="&num+1&"") 
Else 
Response.Write("<script>alert(' 填 写 的 信息 不 完整 1):history.back0:</script>") 
End 下 
End Sub 
If Not Isempty(Request("add")) Then call add0 
%> 


12.7 相册 展示 模块 的 设计 


本 系统 的 相册 展示 模块 主要 用 于 分 类 展示 上 传 的 相册 图 片 信息 ， 即 列 出 相册 的 分 类 以 
一 分 类 中 包含 的 图 片 ， 如 图 12-13 所 示 。 


D1921681.77) 


MYBLO6 


路 站 Pbior com 


图 12-13 ”相册 展示 页 面 
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12.7.1 相册 分 类 展示 的 实现 过 程 


相册 分 类 展示 页 面 (Web_ photo .asp) 指 的 是 显示 数据 库 中 的 相册 分 类 信息 。 相 册 分 类 页 
面 读 取 相册 分 类 信息 数据 表 以 及 相册 信息 数据 表 中 与 分 类 对 应 的 第 一 个 图 片 信息 ， 并 以 表 
格 形式 显示 分 类 对 应 的 第 一 张 图 片 信息 以 及 分 类 名 称 ， 如 果 分 类 没有 图 片 信息 ， 则 以 默认 
图 片 代替 。Web photo.asp 页 面 中 ， 关 键 部 分 代码 如 下 : 


<% 
n=l 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select id,Pcname from tab_photo_class" 
rs.open sqlstr,conn,1,1 
while not rs.eof 
Set rsc=conn.Execute("select top 1 Ppic from tab_photo where Pclass="&rs("id")&"") 
%> 
<td> 
<table border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> 
<td align="center"> 
<a href="web_photo list.asp?classid—<%=rs("id")%0>&amp:classname—=<%=rs("Pcname")%>"> 
<%If Not rsc.eof Then9%o> 
<img src="upfile/<%=rsc("Ppic")%>" height="100" width="120" border="0" /> 
<%Else%> 
<img src="upfile/instead.jpg" height="100" width="120" border="0" /> 
<%End I®6></a> 
</td> 
</t> 
<tr> 
<td height="22" align="center"> 
<a href="web_photo_list.asp?classid=<%=rs("id")%>&amp:classname=<%=rs("Pcname")%>"> 
<%=rs("Pename")%></a></td> 
</tr> 
</table> 
</td> 
<o%Ifn mod 3=0 Then%> 
</tr> 
<tr> 
<%End I®6> 
<% 
Set rsc=Nothing 
n=nt+l 
Is.movenext 


wend 
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rs.close 
Set rs=Nothing 
%> 


12.7.2 相册 图 片 显示 的 实现 过 程 


相册 图 片 显示 页 面 (web_photo_list.asp) 指 的 是 按照 选择 分 类 显示 该 分 类 的 全 部 图 片 信 
息 , 包括 图 片 以 及 图 片 名 称 。 由 于 相册 图 片 是 上 传 到 服务 器 的 ， 因 此 读 取 时 使 用 HTML 语 
言 的 <image> 标 记 ， 指 定 图 片 路 径 即 可 显示 图 片 信息 。web_photo listasp 页 面 的 关键 代码 
如 下 : 


<% 
classid=Request.QueryString("classid") 
nl 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select id,Pname,Ppic from tab_photo where Pclass="&classid&"" 
rs.open sqlstr,.conn,1,1 
while not rs.eof 
%> 
<td> 
<table border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> 
<td align="center"> 
<img sre="upfile/<%=rs("Ppic")%>" height="100" width="120" border="0" /></td> 
</tr> 
<tr> 
<td height="22" align="center"><%=rs("Pname")%></td> 
</tr> 
</table> 
</td> 
<%If n mod 3=0 Then%> 
</tr> 
<tr> 
<%End I®6> 
<% 
n=ntl 
Is.movenext 
wend 
Is.close 
Set rs=Nothing 
%> 
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12.8 博 主 登录 模块 的 设计 


本 系统 的 博 主 登 录 模 块 通过 在 前 台 主 页 面 导航 处 单 击 “ 博 客 管理 ” 超 链接 打开 ， 其 界 

面 如 图 12-14 所 示 。 

当 用 户 没有 在 博 主 登 录 模块 中 输入 用 户 名 和 密码 ， 或 者 输入 了 错误 的 用 户 名 或 密码 

， 页 面 将 打开 相应 的 提示 信息 。 当 用 户 输入 正确 的 博 主 登录 用 户 名 和 密码 后 ， 网 页 将 允 
许 用 户 进入 博客 后 台 系统 。 博 主 登 录 模 块 的 操作 流程 如 图 12-15 所 示 。 


注意 : 

在 博 主 登 录 页 面 中 ， 除 了 要 求 用 户 输入 用 户 名 和 密码 以 外 ， 还 要 求 输入 随机 生成 的 验 
证 码 。 这 样 可 以 提高 博客 网 站 的 安全 性 ， 不 仅 可 以 防止 其 他 非 博 主 用 户 非法 登录 博 主 后 台 
管理 系统 ， 还 定义 了 浏览 器 缓存 该 登录 页 面 的 有 效 期 限 。 


入 站 全 时 有 管理 员 登 录 
7 窗 对 | 日 vj| 国 Ql Wr 
| 填写 用 户 名 与 密码 
用 户 名 : | 登录 
密码 : | ] 失败 | 
am [一 ] mm [abs 
EE EE 戌 功 
加 束 器 心 下 载 | 中 窗 路 局 双 * 进入 后 台 管理 页 面 
图 12-14 博 主 登录 页 面 图 12-15 博 主 登 录 模 块 流程 


12.8.1 设置 页 面 缓存 有 效 期 限 


通过 Response 对 象 的 Expires 属性 和 CacheControl 属性 不 允许 浏览 器 缓存 页 面 ， 以 提 
高 网 站 的 安全 性 ， 其 代码 如 下 : 


<% 
Response.Buffer=true 
Response.Expires=0 "设置 Expires 属性 的 属性 值 为 0， 使 缓存 的 页 面 立 即 过 期 
Response.CacheControl="no-cache" "禁止 代理 服务 器 高 速 缓存 页 面 

%> 


将 以 上 代码 放 在 login.asp 页 面 的 开头 。 
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12.8.2 ”设计 表单 


在 页 面 中 建立 表单 ， 该 表单 用 于 输入 登录 用 户 名 、 密 码 和 验证 码 ， 其 代码 如 下 : 


<form name="form1" method="post" action=""> 
<tr> 
<td height="22" colspan="2" align="center">&nbsp;</td> 
</tr> 
<tr> 
<td height="22" align="right"> 用 户 名 : </td> 
<td height="22"> 
<input name="txt_name" type="text" class="textbox" id="txt name" size="18" 
maxlength="50"></td> 
</t> 
<tr> 
<td height="22" align="right"> 密 码 : </td> 
<td height="22"> 
<input name="txt_passwd" type="password" class="textbox" id="txt_passwd" size="19" maxlength="50"></td> 
</t> 
<t> 
<td height="22" align="right"> 验 证 码 : </td> 
<td height="22"><input name="verifycode" id="verifycode" class="textbox" onFocus="this.selectO; " 
onMouseOver="this.style.background=#E1F4EE':" onMouseOut="this.style.background=#FFFFFF" size="6" 
maxlength="4"> 
<span style="color: #FF0000"><%=session("verifycode")%></span> 
<input type="hidden" name="verifycode2" value="<%=session("verifycode")%>"></td> 
</tr> 
<tr> 
<td height="22" colspan="2" align="center"> 
<input name="login" type="submit" id="]ogin" value=" 登 录 " class="button" onClick="retum 
MycheckO"> 
<input type="reset" name="Submit2" value=" 重 置 " class="button"></td> 
</tr> 
</form> 


12.8.3 ”实现 登录 验证 


当 用 户 提 交 登 录 表单 时 ， 博 主 登 录 模块 将 先 验证 用 户 输入 的 验证 码 是 否 正确 ， 然 后 依 
次 验证 输入 的 用 户 名 、 密 码 。 如 果 登 录 信息 通过 系统 验证 ， 则 将 用 户 名 保存 到 Session 变 
量 中 ， 并 允许 用 户 登 录 到 后 人 台 首 页 ， 其 代码 如 下 : 


<!--#include file="include/conn.asp"--> 
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<% 
session("verifycode")=randStr(4) 
If Not Isempty(Request("login")) Then 
txt_name=Str filter(Request.Form("txt name")) 
txt_passwd=Str filter(Request.Form("txt_passwd")) 
verifycode=Str_ filter(Request.Form("verifycode")) 
verifycode2=Str filter(Request.Form("verifycode2")) 
If verifycode 一 verifycode2 then 
Response.write"<SCRIPT language='JavaScript>alert(' 您 输入 的 验证 码 不 正确 !; 
]location hre 合 login.asp'</SCRIPT>" 
Response.End() 
了 Else 
Session("verifycode")="" 
EndIF 
Iftxt name——>"" Then 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select Mname,Mpasswd from tab_manager where Mname="'&txt_ name&""™" 
Is.open sqlstr,conn,1,1 
Ifrs.eof Then 
Response.Write("<script lanuage='javascript'>alert( 用 户 名 不 正确 ,请 核实 后 重新 输入 !"); 
location.href='login.asp';</script>") 
Else 
Ifrs("Mpasswd")<—txt_passwd Then 
Response. Write("<script lanuage='javascript>alert(' 密 码 不 正确 ,请 确认 后 重新 输入 !"); 
location.href='login.asp':</script>") 
Else 
Session("Mname")=rs("Mname") 
Response.Redirect("index.asp") 
EndIf 
EndIf 
Else 
emrstr=" 请 输入 用 户 名 
EndIf 
EndIf 
%> 


12.9 文章 管理 模块 的 设计 


本 系统 的 文章 管理 模块 包括 文章 分 类 的 管理 ， 文 章 评论 的 管理 ， 文 章 信息 的 添加 、 查 
询 、 修 改 和 删除 等 操作 。 博 主 进 入 后 人 台 主 页 面 后 ， 单 击 页 面 左 侧 导 航 栏 上 的 “文章 分 类 ” 
超 链接 ， 可 以 对 文章 分 类 进行 添加 、 修 改 和 删除 操作 ， 如 图 12-16 所 示 。 添 加 文章 分 类 后 ， 
单 击 导航 栏 上 的 “文章 添加 ” 超 链接 ， 可 以 添加 新 的 文章 ， 如 图 12-17 所 示 。 
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ii 


图 12-16 ”文章 分 类 页 面 图 12-17 文章 添加 页 面 


在 网 站 后 台 主 页 面 中 ， 单 击 页 面 左 侧 导 航 栏 上 的 “文章 浏览 ” 超 链 接 ， 在 打开 的 页 面 
中 可 以 执行 查询 或 者 删除 文章 的 操作 ， 除 此 之 外 ,在 该 页 面 中 还 提供 “修改 ”文章 以 及 “ 评 
论 ” 的 超 链 接 ， 如 图 12-18 所 示 。 

在 图 12-18 所 示 的 页 面 中 单 击 文 章 对 应 的 “评论 ”链接 可 以 查看 文章 评论 ， 如 图 12-19 
所 示 。 


EE Bs 


四 | 可 iT7vaesenoosnd 6 安 “| 上 


i 


图 12-18 ”文章 列表 浏览 页 面 图 12-19 文章 评论 浏览 页 面 


12.9.1 文章 分 类 管理 的 实现 过 程 


文章 分 类 管理 指 的 是 实现 文章 分 类 名 称 的 添加 、 修 改 及 删除 操作 的 页 面 。 本 节 将 介绍 
文章 分 类 管理 的 实现 过 程 。 
在 文章 分 类 管理 页 面 ad_artcicle_class.asp 页 面 中 建立 两 个 表单 : 一 个 用 于 展示 现 有 的 
文章 分 类 信息 ， 另 一 个 用 于 添加 文章 分 类 ， 其 代码 如 下 : 
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<h> 
<td height="22"><img src="images/dian.gif" width="7" height="7"> 文章 分 类 </td> 
</tr> 
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<tr> 
<td height="1"><img src="images/xian_ gif' width="366" height="1"></td> 
</tr> 
</table> 
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="2"> 
<tr align="center"> 
<td height="22'> 类 别名 称 </td> 
<td height="22"> 操 作 </td> 
</t> 
<% 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select id,Acname from tab_article_class" 
Is.open sqlstr,conn,1,1 
while not rs.eof 
%> 
<form name="form2<%=rs("id")%>" method="post" action=""> 
<tr align="center"> 
<td height="22"><input name=" 类 别名 称 " type="text" id=" 类 别名 称 " value=" 
<%=rs("Acname")%>" class="textbox"></td> 
<td height="22"><input name="id" type="hidden" id="id" value="<%=rs("id")%>"> 
<input name="edit" type="submit" id="edit" value=" 修 改 " class="button" onClick="retum 
Mycheck(this.form)"> 
&nbsp; 
<input name="delete" type="submit" id="delete" value=" 删 除 " onClick="returm 
confirm(' 确 定 要 删除 吗 ?)" class="button"></td> 
</tr> 
</form> 
<% 
Is.movenext 
wend 
Is.close 
set rs=nothing 
%> 
</table> 
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="0"> 
<form name="forml" method="post" action=""> 
<tr> 
<td width="106" height="22" align="right"> 类 别名 称 : </td> 
<td width="261" height="22"><input name=" 类 别名 称 " type="text" id=" 类 别名 称 3" 
class="textbox"></td> 
<td width="133" height="22"><input name="add" type="submit" id="add" value=" 添 加" 
class="button" onClick="returmn Mycheck(this.form)"></td> 
</tr> 
</form> 
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</table> 


定义 3 个 过 程 ， 分 别 使 用 insert into、Update 和 Delete 语句 实现 添加 、 修 改 和 删除 文 
章 类 别名 称 的 功能 ， 其 关键 代码 如 下 : 


<!--#include file="include/conn.asp"--> 

<!--#include file="checklogin.asp"--> 

<% 

添加 新 记录 

Sub add0) 
strl=Str filter(RequestForm(" 类 别名 称 ") 
sqlstr="insert into tab_article_ class(Acname) values("&str1&")" 
conn.Execute(sqlstr) 
Response.Redirect("ad article_class.asp") 

End Sub 

路 改 记录 

Sub edit0 
str1=Str_filter(Request.Form(" 类 别名 称 ")) 
id=Request.Form("id") 
sqlstr="update tab_article_class set Acname="&strl &" where id="&id&"" 
conn.Execute(sqlstr) 
Response.Redirect("ad article_class.asp") 

End Sub 

删除 记录 

Sub del0 
id=Request.Form("id") 
sqlstr="delete from tab_article where Aclass="&id&"" 
conn.Execute(sqlstr) 
sqlstr="delete from tab_article_class where id="&id&"" 
conn.Execute(sqlstr) 
Response.Redirect("ad article_class.asp") 

End Sub 

跨行 子 过 程 

If Not Isempty(Request("add")) Then call add0 

If Not Isempty(Request("edit")) Then call editO 

If Not Isempty(Request("delete")) Then call del0) 

%> 


12.9.2 文章 添加 页 面 的 实现 过 程 


文章 添加 指 的 是 将 文章 的 相关 信息 ， 包 括 分 类 、 作 者 、 主 题 和 内 容 添加 到 数据 库 中 ， 
添加 的 文章 信息 将 展示 在 网 站 前 台 页 面 中 。 下 面 将 介绍 文章 添加 的 实现 过 程 。 
在 ad_artcle.asp 页 面 中 建立 表单 ， 用 于 输入 文章 信息 ， 代 码 如 下 : 
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<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<form name="form?2" method="post" action=""> 
<tr> 
<td height="28" align="right"> 文 章 类 别 : </td> 
<td height="28"><select name=" 文 章 类 别 " id=" 文 章 类 别 "> 
<option selected> 选 择 类 别 </option> 
<% 
Set rsc=Server.CreateObject("ADODB.Recordset") 
sqlstr="select id,Acname from tab_article_class" 
Isc.open sqlstr,conn,1,1 
while not rsc.eof 
%> 
<option value="<%=rsc("id")%>" <%if rsc("id")=cint(rs("Aclass")) then Response.Write 
("selected") end 1®4>><%=rsc("Acname")%></option> 
<% 
Isc.movenext 
wend 
Isc.close 
Set rsc=Nothing 
%> 
</select></td> 
</tr> 
<tr> 
<td height="28" align="right"> 文 章 作 者 : </td> 
<td height="28"><input name=" 文 章 作者 " type="text" class="textbox" id=" 文 章 作者 " 
value="<%=rs("Aauthor")%>"></td> 
</tr> 
<tr> 
<td height="28" align="right"> 文 章 主题 ，</td> 
<td height="28"><input name=" 文 章 主题 " type="text" id=" 文 章 主题 " class="textbox" 
value="<%=rs("Atitle")%>"></td> 
</t> 
<tr> 
<td height="22" align="right"> 文 章 内 容 : </td> 
<td height="22"><textarea name=" 文 章 内 容 " cols="45" rows="6" id=" 文 草 内 容 "> 
<%=rs("Acontent")%></textarea></td> 
</t> 
<tr> 
<td height="28" col ="2" align="center"> 
<input name="id" type="hidden" id="id" value="<%=rs("id")%>"> 
<input name="edit" type="submit" class="button" id="edit" value=" 修 改 " onClick="retum 
Mycheck(this .form)"> 
<input type="button" name="Submit22" value=" 返 回 " class="button" 
‘onClick="javascript:window.location.href—'ad article_ list.asp"> 
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</td> 
</tr> 
</form> 
</table> 


定义 用 于 添加 数据 的 子 程序 ， 将 获取 到 的 表单 信息 使 用 Recordest 对 象 的 AddNew 方 
法 添加 到 数据 中 ， 其 关键 代码 如 下 : 


<!--#include file="include/conn.asp"--> 
<!--#include file="checklogin.asp"--> 
<% 

添加 新 记录 

Sub add0) 

str1=Str_filter(Request.Form(" 文 章 类 别 ")) 

str2=Str_filter(Request.Form(" 文 章 作者 ")) 

str3=Str_filter(Request.Form(" 文 章 主题 ")) 

str4=Str filter(Request.Form(" 文 章 内 容 ")) 

If str1<—>"" and str2<—>"" and str3—>"" and str4—"" Then 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select * from tab_article" 
rs.open sqlstr,conn,1,3 
Is.addnew 
rs("Aclass")=strl 
rs("Aauthor")=str2 
rs("Atitle")=str3 
rs("Acontent")=str4 
rs.update 
Is.close 
Set rs=Nothing 
Response.Redirect("ad article_list.asp") 

Else 

Response.Wriite("<script>alert(' 您 填写 的 信息 不 完整 !):history.backO:</script>") 

EndIf 

End Sub 


If Not Isempty(Request("add")) Then call add0 


If Not Isempty(Request("edit")) Then call editO 
%> 


12.9.3 ”文章 查询 和 删除 的 实现 过 程 


文章 浏览 的 主要 功能 是 以 分 页 形式 显示 所 有 文章 信息 ， 可 以 按照 条 件 查询 文章 ， 可 以 
删除 指定 文章 ， 而 且 提供 了 修改 文章 以 及 查看 文章 评论 的 入 口 。 


第 12 章 ASP 综合 开发 实例 一 一 博客 网 站 *301。 


1. 查询 文章 


在 页 面 ad_article list.asp 中 建立 用 于 查询 的 表单 ,在 该 表单 中 插入 列表 /菜单 、 文 本 框 ， 
以 选择 或 输入 查询 条 件 ， 如 文章 类 别 、 文 章 标题 、 作 者 名 称 等 ， 代 码 如 下 : 


<table width="90%" border="0" align="center" cellpadding="0" cellspacing="2"> 
<form name="forml1" method="get" action=""> 
<t> 


<td height="22" align="right"> 类 别 : ”</td> 
<td><select name="txt_class" id="select"> 
<option selected> 选 择 类 别 </option> 
<% 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select id,Acname from tab_article_class" 
rs.open sqlstr.conn ,1,1 
while not rs.eof 
%> 
<option value="<%=rs("id")%>"><%=rs("Acname")%></option> 
<% 
Is.movenext 
wend 
Is.close 
Set rs=Nothing 
%> 
</select></td> 
<td height="22" align="right"> 文 章 标题 </td> 
<td><input name="txt_title" type="text" class="textbox" id="txt_title" size="15"></td> 
<td height="22">&nbsp:</td> 
</t> 
<tr> 
<td height="22" align="right"> 作 者 名 称 : </td> 
<td><input name="txt_author" type="text" class="textbox" id="txt_author" size="12"></td> 
<td height="22" align="right">&nbsp:</td> 
<td><input name="query" type="submit" class="button" id="query" value=" 查 询 "></td> 
<td height="22">&enbsp;</td> 
</t> 
</form> 
</table> 


页 面 根据 获得 的 查询 参数 ， 例 如 文章 的 类 别 、 标 题 或 作者 等 ， 来 确定 SQL 查询 语句 ， 
并 以 分 页 形式 显示 查询 到 的 文章 信息 ， 其 关键 程序 代码 如 下 : 
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FF6600"> 


<tr align="center"> 
<th width="86" bgcolor="#FFFFFF"> 类 别 </th> 
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<th width="77" height="22" bgcolor="#EFFFFF"> 作 者 </th> 
<th width="191" height="22" bgcolor="#FFFFFF"> 文 章 标题 </th> 
<th width="146" height="22" bgcolor="#FFFFFF"> 操 作 </th> 
</tr> 
<% 
txt_class=Request("txt_class") 
txt_title=Request("txt_title") 
txt_author=Request("txt_author") 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select * from tab_article where 1=1" 
If txt_class<>"" and txt class<>" 选 择 类 别 " Then sqlstr=sqlstr&" and Aclass="&txt_class&"" 
If txt_tile<>"" Then sqlstr=sqlstr&" and Atitle like '%"&txt_title&"%" 
If txt_author—"" Then sqlstr=sqlstr&" and Aauthor like '%"&txt_authoré&"%" 
sqlstr=sqlstr&" order by id desc" 
rs.open sqlstr,conn,1,1 


If Not (rs.eof and rs.bof) Then 
Is.pagesize=8 "定义 每 页 显示 的 记录 数 
pages=clng(Request("pages")) "获得 当前 页 数 


If pages<l1 Then pages=1 
If pages>rs.recordcount Then pages=rs.Tecordcount 


showpage rs.pages 执行 分 页 子 程序 showpage 
Sub showpage(rs,pages) "分 页 子 程序 showpage(rs,pages) 
Ts.absolutepage=pages 指定 指针 所 在 的 当前 位 置 
For 二 1 to rs.pagesize "循环 显示 记录 集中 的 记录 
%> 
<form name="forml1" method="post" action=""> 
<tr align="center"> 
<td align="center" bgcolor="#FFFFFF"> 
<%Set rsc=conn.Execute("select Acname from tab_ article_class where id="&rs("Aclass")&"") 
Response. Write(rsc("Acname")) 
Set rsc=Nothing 
%></td> 
<td height="22" align="center" bgcolor="#FFFFFF"><%=rs("Aauthor")%></td> 
<td height="22" align="left" bgcolor="#FFFFFF"><%=Left(rs("Atitle"),15)%></td> 
<td height="22" bgcolor="#FFFFFF"><input name="id" type="hidden" id="id" 
value="<%=rs("id")%>"> 
<a href="ad article.asp?id=<%=rs("id")%>&action=view"> 修 改 </a> 
<a href-="ad article commend .asp?id—<%=rs("id")%6>&Atitle=<%=rs("Atitle")%6>"> 评 论 <a> 
<input name="delete" type="submit" id="delete" value=" 删 除 " onClick="return confirm 
("确定 要 删除 吗 ?)" class="button"></td> 
</> </form> 
<% 
rs.movenext 指 针 向 下 移动 


Ifrs.eof Then exit for 
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Next 
End Sub 
EndIf 
%> 
<tr align="center"> 
<form name="form" action="?" method="get"> 
<td height="22" col ="4" bgcolor="#FFFFFF"><% 
ifpages——>1 then 
response. Write("&nbsp;&nbsp;<a 
href="&path&"?pages=1 &txt class="&txt_class&"&txt_title="&txt_title&"&txt_ author="&txt_author&"> 首页 
</a>") 

Tesponse.Write("&nbsp:&nbsp:<a 
href="&path&"?pages="&(pages-1)&"&txt class="&txt class&"&txt title="&txt title&"&txt author="&txt au 
thor&"> 上 一 页 </a>") 

endif 

response.Write("&nbsp;&nbsp; 当前 <font color=#FF0000'>"&pages&"/"&rs.pagecount&"</font> 
页 ") 

if pages—>rs.pagecount then 

response. Write("&nbsp:&nbsp;<a 
href="&path&"?pages="&(pagest+1)&"&txt_class="&txt_ class&"&txt title="&txt title&"&txt author="&txt au 
thor&"> 下 一 页 </a>") 

response. Write("&nbsp;&nbsp:<a 
href="&path&"?pages="&rs.pagecount&"&txt_class="&txt_class&"&txt title="&txt_ title&"&txt_author="&txt 
_author&"> 末 页 </a>") 

endif 
Is.close 
Set rs=Nothing 
%> 
</td> 
</form> 
</tr> 
</table> 


2. 删除 文章 


在 页 面 ad_article_list.asp 中 单 击 “ 删 除 ” 按 钮 可 以 删除 选 定 的 文章 ， 并 同时 删除 与 文 
章 对 应 的 所 有 评论 ， 其 代码 如 下 : 


<% 

If Not Isempty(Request("delete")) Then 
id=Request.Form("id") 
sqlstr="delete from tab_article commend where Cid="&id&"" 
conn.Execute(sqlstr) 
sqlstr="delete from tab_article where id="&id&"" 
conn.Execute(sqlstr) 
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Response.Redirect("ad article list.asp") 


EndIf 
%> 
12.10 ”相册 管理 模块 的 设计 
相册 管理 模块 的 主要 功能 包括 对 相册 的 分 类 管理 以 及 上 传 、 浏 览 和 删除 照片 。 进 入 后 


台 主 页 面 后 ， 单 击 左 侧 导航 栏 中 的 “相册 分 类 ” 超 链接 ， 可 以 对 相册 分 类 进行 添加 、 修 改 
和 删除 操作 ， 如 图 12-20 所 示 。 

单 击 页 面 左 侧 导 航 栏 中 的 “相册 查看 ” 超 链接 ， 可 以 执行 查询 或 者 查询 图 片 信息 的 操 
作 ， 在 该 页 面 中 还 提供 “修改 ”图 片 信息 的 链接 ， 如 图 12-21 所 示 。 
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图 12-20 ”相册 分 类 页 面 图 12-21 相册 查看 页 面 


添加 相册 分 类 后 ， 单 击 网 页 左 侧 导 航 栏 中 的 “相册 上 传 ” 超 链 接 ， 在 打开 的 页 面 中 选 
择 相册 的 类 别 ， 输 入 图 片 名 称 ， 然 后 单 击 “ 浏 览 ” 按 钮 选择 上 传 图 片 路 径 ， 如 图 12-22 所 
示 ， 最 后 单 击 “ 上 传 ”按钮 ， 实 现 上 传 图 片 到 服务 器 的 功能 。 
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图 12-22 相册 上 传 
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12.10.1 上 传 图 片 的 实现 过 程 


上 传 图 片 的 实现 原理 是 首先 获取 到 图 片 的 二 进 制 数据 ， 然 后 将 其 添加 到 数据 库 中 ， 再 
利用 Stream 对 象 加 载 数据 库 中 的 图 片 信息 将 其 保存 到 指定 的 服务 器 路 径 下 。 下 面 将 介绍 上 
传 图 片 的 实现 过 程 。 

在 页 面 ad_photo.asp 中 建立 表单 ， 在 表单 中 插入 列表 /菜单 、 文 本 框 以 选择 相册 类 别 和 
输入 图 片 名 称 ， 并 定义 <iframe> 标 记 用 于 包含 上 传 图 片 的 表单 ， 其 代码 如 下 : 


<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E3E3E3"> 
<form name='"forml" method="post" action=""> 


<tr> 


<td width="121" height="28" align="right" bgcolor="#FFFFFF"> 相 册 类 别 ，</td> 
<td width="566" height="28" bgcolor="#FFFFFF"><select name=" 相 册 类 别 " id="select"> 
<option selected> 选 择 类 别 </option> 
<% 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select id,Pcname from tab_photo_class" 
Is.open sqlstr,conn,1,1 
while not rs.eof 
%> 
<option value="<%=rs("id")%>"><%=rs("Pcname")%></option> 
<% 
Is.movenext 
wend 
Is.close 
Set rs=Nothing 
%> 
</select></td> 
</t> 
<tr> 
<td height="28" align="right" bgcolor="#FFFFFF"> 图 片 名 称 : </td> 
<td height="28" bgcolor="#FFFFFF"> 
<input name=" 图 片 名 称 " type="text" id=" 图 片 名 称 " class="textbox"></td> 
</t> 
<t> 
<td height="22" align="right" bgcolor="#EFFFFF"> 图 片 信息 : </td> 
<td height="22" bgcolor="#FFFFFF"><div align="left"> 
<iframe src="UpFile.asp" width="300" height="22" scrolling="no" MARGINHEIGHT="0" 
MARGINWIDTH="0" align="middle" frameborder="0"></iframe> 
</div></td> 
</t> 
<tr> 


<td height="28" col =—"2" align="center" bgcolor="#FFFFFF"><input name="add" type= 
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"submit" class="button" id="add" value=" 添 加 " onClick="return Mycheck(this form)"> 
&nbsp; 
<input type="reset" name="Submit2" value=" 
</tr> 
</form> 
</table> 


下 置 " class="button"></td> 


在 页 面 Upfile.asp 中 建立 表单 ， 在 表单 中 插入 文件 域 和 按钮 ， 用 于 上 传 图 片 ， 代 码 如 下 : 


<table width="400" border="0" cellspacing="0" cellpadding="0" align="center"> 
<form name="formup" method="post" action="UpLoad.asp" enctype="multipart/form-data"> 
<tr align="center" valign="middle"> 
<td align="left" id="upid" height="20" width="400" bgcolor="#FFFFFF"> 
<input name="filel" type="file" class="tx1" style="width:200" value="" size="40"> 
<input type="submit" name="Submit" value=" 上传 "> 
</td> 
</tr> 
</form> 
</table> 


当 用 户 在 页 面 中 选择 了 上 传 图 片 , 并 单 击 “ 上 传 ” 按 钮 后 , 在 程序 处 理 页 面 UpLoad.asp 
中 将 根据 文件 格式 提取 图 片 数据 ， 并 将 其 保存 在 Session 变量 中 。 同 时 ， 获 取 上 传 的 图 片 
路 径 ， 将 保存 在 Session 变量 中 ， 其 关键 代码 如 下 : 


<% 
"限制 文件 的 大 小 
imgsize=request.TotalBytes 
If imgsize/1024>3000 Then 
Response.write "<script language=javascript>alert( 您 上 传 的 文件 大 小 超出 规定 的 范围 ， 请 重新 
上 传 ! ):window-.location hre 人 "Upfile asp':</script>" 
response.End() 
End If 


imgData=request.BinaryRead(imgsize) 
Herlf=chrB(13)&chrB(10) 
Divider=leftB(imgdata,clng(instrB(imgData,Herlf))-1) 
dstart=instrB(imgData,chrB(13)&chrB(10)&chrB(13)&chrB(10))+4 
Dend=instrB(dstart+1,imgdata,divider)—dstart 
Mydata=MidB(imgdata.dstartdend) 
Session("pic")=Mydata 

获取 客户 端 文件 路 径 

datastart=InstrB(imgData, Herlf}+59 
dataend=InstrB(datastart.imgData,Herlf) -2 
datalen=dataend—datastart+1 
filepath=MidB(imgData,datastart.datalen) 
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filepath=toStr(filepath) 
Session("filepath")=filepath 


将 二 进 制 数据 转换 为 字符 串 
Function toStr(Byt) 
Dim blow 
toStr 三 中 
Fori= 1 To LenB(Byt) 
blow = MidB(Byt, i, 1) 
If AscB(blow) > 127 Then 
toStr = toStr & Chr(AscW(MidB(Byt, i+ 1, 1) & blow)) 
(Ciball 
Else 
toStr = toStr & Chr(AscB(blow)) 
End If 
Next 
End Function 
%> 


当 完 成 输入 图 片 信 息 并 完成 上 传 图 片 的 操作 后 ， 在 ad_photo.asp 页 面 中 单 击 “ 添 加 ” 


按钮 即 可 将 图 片 相关 信息 保存 到 数据 库 中 ， 并 将 图 片上 传 到 服务 器 中 ， 其 代码 如 下 : 


<!--#include file="include/conn.asp"--> 
<!--#include file="checklogin.asp"--> 
<% 
"根据 日 期 和 时 间 获 取 文 件 名 称 
Function GetFileName(dDate) 
根据 传递 的 时 间 字符 串 ， 以 及 Year0、Month0、Day0、Hour0、Minute0 和 Second0 函 数 定义 返 
回 的 字符 串 格式 
GetFileName = RIGHT("0000"+Trim(Year(dDate)),4)+RIGHT("00"+Trim(Month(dDate)),2)+ 
RIGHT("00"+Trim(Day(dDate)),2)+RIGHT("00" + Trim(Hour(dDate)),2)+ 
RIGHT("00"+Trim(Minute(dDate)),2)}+RIGHT("00"+Trim(Second(dDate)),2) 
End Function 


"定义 用 于 获取 文件 扩展 名 的 函数 
Function GetExt(filepath) 
Dim arr "定义 变量 
arr=split(filepath,".") ' 使 用 split0 函 数 以 小 数 点 为 分 隔 符 ， 返 回 一 维 数组 
nums=Ubound(ar) "获取 数组 元 素 个 数 
Ifnums=0 Then "如果 nums 值 为 0， 则 说 明 没有 文件 扩展 名 
GetExt=" 无 " 
Else "如果 nums 值 不 为 0， 则 将 数组 指定 元 素 赋予 GetExt 
GetExt="."&arr(nums) 
EndIf 
End Function 


添加 新 记录 
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Sub add0 
strl=Str filter(RequestForm(" 相 册 类 别 ")) 
str2=Str_filter(Request.Form(" 图 片 名 称 ")) 
str3=Session("pic") 
filepath=Session("filepath") 
filename=GetFileName(now())&GetExt(filepath) 
If strl]<—"" and stt2<—"" and str3—"" Then 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select * from tab_photo" 
rs.open sqlstr,conn,1,3 
rs.addnew 
rs("Pelass")=strl 
rs("Pname")=str2 
rs("Ppic")=filename 
rs("Pinfo").appendchunk str3 
Session("pic")="" 
Session("filepath")="" 
rs.update 
"获取 上 传 后 记录 的 IJD 编号 
temp=rs.bookmark 
rs.bookmark=temp 
fileID=rs("id") 
Is.close 
"将 数据 库 中 的 文件 保存 到 服务 器 
sqlstr="select * from tab photo where id="&cfileID&"" 
rs.open sqlstr,conn,1,3 
Dim objStream 
Set objStream=Server.CreateObject("ADODB. Stream") 
objStream.Type=1 
objStream.Open 
objStream. Write rs("Pinfo").GetChunk(8000000) 
objStream.SaveToFile Server.MapPath("../upfile")&"/"&filename,2 


objStream.Close 
Set objStream=Nothing 
TS.close 
Set rs=Nothing 
Response.Redirect("ad_photo_ list.asp") 
Else 
Response.Write("<script>alert(' 您 填写 的 信息 不 完整 !):history.back0;</script>") 
End If 
End Sub 
"修改 记录 
Sub edit0 


id=Request.Form("id") 
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strl=Str filter(RequestFomm(" 相 册 类 别 ") 
str2=Str_filter(Request.Form(" 图 片 名 称 ")) 
Ifstrl<—>"" and str2 一 "" Then 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select * from tab_photo where id="&id&"" 


Is.open sqlstr,conn,1,3 
rs("Pclass")=strl 
rs("Pname")=str2 
rs.update 
rs.close 
Set rs=Nothing 
Response.Redirect("ad_photo list.asp") 
Else 
Response.Write("<script>alert( 您 填写 的 信息 不 完整 !):history.back0;</script>") 
EndIf 
End Sub 


If Not Isempty(Request("add")) Then call add0 
If Not Isempty(Request("edit")) Then call editO 
%> 


12.10.2 ”浏览 图 片 的 实现 过 程 


浏览 图 片 包 括 查 看 所 有 的 图 片 信息 以 及 浏览 查询 到 的 图 片 信息 。 下 面 将 介绍 浏览 图 片 
的 实现 过 程 。 

在 页 面 ad_photo_list.asp 中 建立 用 于 查询 的 表单 ， 在 该 表单 中 插入 列表 /菜单 、 文 本 框 ， 
以 选择 或 输入 查询 条 件 ， 其 代码 如 下 : 


</table><table width="90%" border="0" align="center" cellpadding="2" cellspacing="0"> 
<form name="forml" method="get" action=""> 
<tr> 
<td height="22" align="right"> 类 别 : </td> 
<td><select name="txt_class" id="select"> 
<option selected> 选 择 类 别 </option> 
<% 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select id,Pcname from tab_photo_class" 
Is.open sqlstr.conn,1,1 
while not rs.eof 
%> 
<option value="<%=rs("id")%>"><%=rs("Pename")%></option> 
<% 
Is.movenext 
wend 
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Is.close 
Set rs=Nothing 
%> 

</select> 

</td> 

<td height="22" align="right"> 图 片 名 称 : </td> 

<td><input name="txt_title" type="text" class="textbox" id="txt title" size="15"></td> 

<td height="22"><input name="query" type="submit" class="button" id="query" value=" 查 询 "></td> 

</tr> 
</form> 
</table> 


页 面 根据 获得 的 查询 参数 ,例如 相册 的 类 别 、 名 称 等 ,确定 SQL 查询 语句 ， 并 以 分 页 
形式 显示 查询 到 的 文章 信息 ， 其 关键 代码 如 下 : 


<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FF6600"> 
<tr align="center"> 
<th width="134" bgcolor="#FFFFFF"> 类 别 </th> 
<th width="246" height="22" bgcolor="#FFFFFF"> 图 片 名 称 </th> 
<th width="170" height="22" bgcolor="#FFFFFF"> 操 作 </th> 
</t> 
<% 
txt_class=Request("txt_class") 
txt_title=Request("txt_title") 
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="select * from tab photo where 1=1" 
Iftxt_class<>" and txt_class<>" 选 择 类 别 " Then sqlstr=sqlstr&" and Pclass="&txt_class&"" 
If txt_tile<>"" Then sqlstr=sqlstré&" and Pname like '%"&txt_title&"%" 
sqlstr=sqlstr&" order by id desc" 
Is.open sqlstr,conn,1,1 


If Not (rs.eof and rs.bof) Then 
Is.pagesize=8 "定义 每 页 显示 的 记录 数 
pages=clng(Request("pages")) 获得 当前 页 数 


If pages<] Then pages=1 
If pages>rs.recordcount Then pages=rs.recordcount 


showpage rs.pages "执行 分 页 子 程序 showpage 
Sub showpage(rs,pages) "分 页 子 程序 showpage(rs,pages) 
Ts.absolutepage=pages 牧 定 指针 所 在 的 当前 位 置 
For i=] to rs.pagesize "循环 显示 记录 集中 的 记录 
%> 


<form name="forml<%=rs("id")%>" method="post" action=""> 
<tr align="center"> 
<td align="center" bgcolor="#FFFFFF"> 
<%Set rsc=conn.Execute("select Pecname from tab photo_class where 
id="&rs("Pclass")&"") 
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If Not rsc.eof or Not rsc.bof Then 
Response. Write(rsc("Pcname")) 
EndIf 
Set rsc=Nothing 
%> 
</td> 
<td height="22" align="center" bgcolor="#FFFFFF"><%=Left(rs("Pname"),15)%></td> 
<td height="22" bgcolor="#FFFFFF"> 
<input name="id" type="hidden" id="id" value="<%=rs("id")%>"> 
<a href="ad_photo.asp?id=<%=rs("id")%>&action=view"> 修 改 </a> 
<input name="delete" type="submit" id="delete" value=" 删 除 " 
onClick="return confimm(' 确 定 要 删除 吗 ?)" class="button"></td> 
</tr> 
</form> 
% 
rs.movenext 听 针 向 下 移动 
Ifrs.eof Then exit for 
Next 
End Sub 
End If 
%> 
<tr align="center"> 
<form name="form" action="?" method="get"> 
<td height="22" colspan="3" bgcolor="#FFFFFF"> 
<% 
if pages>1 then 
Tesponse.Write("&nbsp:&nbsp;<a hre 合 "&path&"?pages=1&txt class="&txt class&c"& 
txt_title="&etxt_title&"> 首 页 </a>") 
Tesponse.Wriite("&nbsp:&nbsp:<a href="&path&"?pages="&(pages-1)&"&txt_class="&txt_class&" 
Rtxt_title="&txt_title&"> 上 一 页 </a>") 
endif 
response. Write("&nbsp;&nbsp; 当 前 <font color=#FF0000>"&pages&"/"&rs.pagecount&"</font> 页 ") 
if pages<>rs.pagecount then 
Tesponse.Wiite("&nbsp:&nbsp:<a href="&path&"?pages="&(pagest+1)&"&txt_class="&txt_class&" 
&txt_title="&ztxt_title&"> 下 一 页 </a>") 
response. Write("&nbsp:é&nbsp;<a href="é&-path&"?pages="&rs.pagecount&"&txt_class= 
"&txt_class&"&txt title="&txt_title&"> 末 页 </a>") 
endif 
Is.close 
Set rs=Nothing 
%> 
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12.10.3 ”删除 图 片 的 实现 过 程 


删除 图 片 包括 删除 存储 在 服务 器 上 的 图 片 文件 以 及 数据 库 中 对 应 的 图 片 记录 。 在 页 面 
ad _ photo listasp 中 单 击 “删除 ”按钮 ， 即 可 删除 对 应 的 图 片 信息 。 在 页 面 中 首先 创建 
FileSystemObject 对 象 并 使 用 Delete(0 方 法 删除 指定 路 径 和 名 称 的 源 文件 ,然后 再 执行 Delete 
语句 删除 数据 库 中 的 记录 ， 其 代码 如 下 : 


<!--#include file="include/conn.asp"--> 
<!--#include file="checklogin.asp"--> 
<% 
If Not Isempty(Request("delete")) Then 
id=Request.Form("id") 
Set rs=conn.Execute("select Ppic from tab_photo where id="&id&"") 
pic=rs("Ppic") 
Set rs=Nothing 
Pic="../upfile/"&pic 
Set FSObject=Server.CreateObject("Scripting.FileSystemObject") 
If FSObject.FileExists(Server.MapPath(pic)) Then 
Set FileObject=FSObject.GetFile(Server.MapPath(pic)) 
FileObject.Delete True 
End If 
sqlstr="delete from tab_photo where id="&id&"" 
conn.Execute(sqlstr) 
Response.Redirect("ad_photo list.asp") 
EndIf 
%> 


12.11 发 布 网 站 


完成 博客 网 站 的 开发 后 ， 用 户 可 以 将 网 站 发 布 。 通 常 ， 发 布 网 站 需要 经 过 域名 注册 、 
空间 申请 、 解 析 域 名 和 上 传 网 站 等 儿 个 步骤 。 


12.11.1 ”注册 网 站 域名 


域名 用 于 代替 他 地址， 方便 网 站 访问 者 记忆 网 站 的 名 称 ， 例 如 www.sina.com 是 新 浪 
网 的 域名 ，www.sohu.com 是 搜狐 网 的 域名 。 域 名 需要 在 指定 的 网 站 上 购买 ， 例 如 新 网 
(www.xinnet.com)、 商 务 中 国 (www.bizcn.com) 等 ， 如 图 12-23 所 示 。 
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图 12-23 ”域名 注册 网 站 


购买 与 注册 域名 的 常规 步骤 如 下 : 

(1) 打开 并 登录 域名 服务 网 站 。 

(2) 注册 网 站 会 员 。 

(3) 进入 域名 查询 页 面 ， 查 询 需 要 注册 的 域名 是 否 已 经 被 注册 。 

(4) 车 用 户 计 划 注 册 的 域名 未 被 注册 ， 则 进入 注册 页 面 并 填写 相关 资料 。 
(5) 资料 填写 完成 后 ， 购 买 域 名 并 付款 。 

(6) 等 待 网 站 回应 ， 开 通 域名 。 


12.11.2 ”申请 网 站 空间 


网 站 空间 可 以 使 用 虚拟 主机 或 租借 服务 器 。 目 前, 企业 建立 网 站 一 般 都 采用 虚拟 主机 ， 
这 样 既 可 以 节省 购买 设备 和 租用 专线 的 费用 ， 又 不 必 雇 佣 专门 的 管理 人 员 来 维护 网 站 服务 
器 。 申 请 网 站 空间 常规 步骤 如 下 : 

(1) 登录 虚拟 空间 服务 商 网 站 ， 如 图 12-24 所 示 。 

(2) 根据 网 站 提示 ， 注 册 网 站 会 员 ， 如 图 12-25 所 示 。 


图 12-24 ”登录 虚拟 空间 服务 商 网 站 图 12-25 注册 网 站 会 员 
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(3) 选择 虚拟 空间 的 类 型 ， 例 如 空间 支持 的 语言 、 数 据 库 、 空 间 大 小 和 流量 限制 等 ， 
如 图 12-26 所 示 。 
(4) 进入 缴费 页 面 ， 选 择 缴费 方式 ， 如 图 12-27 所 示 。 


ET ET 


图 12-26 ”选择 空间 类 型 图 12-27 缴费 页 面 
(5) 成 功 付 费 后 ， 一 般 空 间 将 在 24 小 时 之 内 开通 。 


12.11.3 ”将 域名 解析 到 服务 器 


域名 和 空间 购买 成 功 后 ， 用 户 需 要 将 域名 地 址 指向 虚拟 服务 器 的 下 。 进 入 域名 网 站 的 
管理 页 面 ,添加 主机 记录 , 一般 要 先 输入 主机 名 (注意 不 包括 域名 ,如 解析 www.myblog.com， 
只 需要 输入 www 即 可 )， 然 后 填写 他 地 址 ， 并 单 击 “ 确 定 ” 按 钮 即 可 。 


12.11.4 使 用 FTP 软件 上 传 网 站 


上 传 网 站 需要 使 用 FTP 软件 , 例如 CuteFTP。 下 面 将 介绍 使 用 该 软件 上 传 网 站 的 方法 。 
(1) 启动 CuteFTP 软件 ， 选 择 “ 站 点 管理 器 ”选项 卡 ， 如 图 12-28 所 示 。 
(2) 右 击 鼠标 ， 在 弹出 的 快捷 菜单 中 选择 “新 建 ”| “FTP 站 点 ”命令 ， 如 图 12-29 所 示 。 


ER - 司 二 一 


图 12-28 “站 点 管理 器 ”选项 卡 图 12-29 新 建 FTP 站 点 
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G3) 打开 “站 点 属性 ”对 话 框 ， 在 “标签 ”文本 框 中 输入 网 站 名 称 ， 在 “主机 地 址 ” 
文本 框 中 输入 主机 瑟 地 址 ， 在 “用 户 名 ”文本 框 中 输入 FTP 用 户 名 ， 在 “密码 ”文本 框 
中 输入 FTP 密码 ， 如 图 12-30 所 示 。 

(4) 单 击 “ 连 接 ” 按 钮 ， 即 可 打开 FTP 站 点 ， 如 图 12-31 所 示 。 


ee TR a 
Se Sa sow TAD WC lolx] 
EE TE se ET EIE ST LL TJ 


BD coe rm Dm Py ETEEEEIEE 
ES 请 ET] 

登录 方式 员 
加 标准 吕 
息 匿 名 以) 


确定 取消 才 助 i | 
图 12-30 “站 点 属性 ”对 话 框 图 12-31 连接 FTP 站 点 


(5) 打开 FTP 站 点 后 ， 选 择 “本 地 驱动 器 ”选项 卡 ， 然 后 选中 并 右 击 站 点 文件 ， 在 弹 
出 的 快捷 菜单 中 选择 “上 传 ”命令 ， 即 可 开始 上 传 站 点 ， 如 图 12-32 所 示 。 
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12-32 ”上 传 网 站 


(6) 指定 的 网 站 上 传 成 功 后 ， 将 在 CuteFTP 软件 的 主 窗口 上 部 分 显示 网 站 上 传 完成 提 
示 。 此 时 ， 其 他 用 户 即 可 在 客户 端 浏 览 器 通过 输入 网 站 的 域名 或 者 他 地 址 访问 网 站 。 


注意 : 
在 网 站 上 传 的 过 程 中 ，CuteFTP 软件 的 主 窗口 右 侧 部 分 显示 正在 传送 的 文件 ， 左 侧 部 
分 显示 正在 传送 的 文件 所 在 文件 夹 的 所 有 文件 ， 下 侧 部 分 显示 文件 传送 的 状态 。 
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12.12 习 题 


12.12.1 问答 题 


简 述 如 何 使 用 OLE DB 连接 Access 数据 库 。 


2. 简 述 如 何 使 用 FileSystemObject 对 象 统计 网 站 访问 量 。 


12.12.2 ”操作 题 


1. 使 用 Access 2013 创建 本 章 实例 所 用 的 数据 库 。 
2. 将 本 章 制 作 的 博客 网 站 实例 发 布 至 Intemet。 


